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EDITOR TALE 


CON UNA LACUNA INCOLMABILE 


Questo numero di POCKET PET esce come edizione 
doppia, con valore dei contenuti quadruplo, ma, 
purtroppo con una lacuna incolmabile* 

Questa lacuna e 1 dovuta alla recente scomparsa del 
presidente della .Harden spa, il geometra Luigi 
Bonezzi. 

E’ proprio lui che ha saputo riconoscere, prima di 
altri, la validità 1 del personal computer, in 
particolare del PET* 

Sicuro di aver ben riposto la sua fiducia in quel 
prodotto, di cui tutti Voi siete felici possessori, 
ha iniziato anni fa la commercializzazione dei 
prodotti della Commodore* 

Luigi Bonezzi era senza dubbio un uomo Fuori dal 
comune, un uomo pieno di umanità*, dì vitalità' ed 
intelligenza, 

proprio con questo senso di umanità' e con quel 
senso di amicizia che sapeva infondere* che 
trasformava ogni suo collaboratore in una delle 
colonne della Harden* 

Proprio per questo suo saper seeglere, saper dare ed 
infondere fiducia* saper dirigere in una atmosfera, 
si può' ben dire,* famigliare una azienda della 
portata della Harden, ha fatto si* che questa non 
perdesse, con la sua mancanza, quella grinta, quella 
potenza, quella vitalità*, quella validità 1 che egli 
ha saputo e voluto costruire,o 

E» proprio in questa luce, che tutti t dipendenti e 
collaboratori della Karden, sia pure con una spina 
nel cuore, proseguono con maggior forza allo 
sviluppo ed al raggiungimento di quelle mete che lui 







di Alessandro de Simone? 



SEMBLER 

PER 

TUTTI 


Nibblel e '"tradotto" in esadecimale 
3l solo scopo di rendere aerarl f ce La 
vita al pro^rammatore. 

3 ^ Fe r seWPl if itene ancora di Piu’ la 
stesura di un programma in Lfl si 
ricorre spesso ad un lìnsua^sin 
detto "Assembler' 1 che* uti listando 
aruppi di lettere derivate dalle 
iniziali delle parole insilasi che 
indicano la funzione dalla 

istruzione? ed incolonnati uno dopo 
l r 3 ltrop consente una relativa 
facilita' nell'individuar* sii 
eventuali errori o nell 1 sfportare 
modifiche (fis* 3 n t D, 


Esempi : 



fri ma di continuare 11 discorso sul 
set di istruzioni del À502* vediamo di 
chiarire alcuni concetti *\s r 
accennati sul numero scorso? 


1-n calcolatore "ragiona" solo in 
binario puro? tratta cioè 1 sólo 
aruppi di otto stati dr tensione 
elettrica alla volta alta o hsssap 
detti BIT. 


2-F'er semplicità* (vedi fi a. 2 n.l) il 
dato formato da otto BIT l detto 
parola o Byte) viene "spezzato 1 ' m 
due da quattro Bit (detti ciascuno 


Come si può 1 notare nel linsuad^io 
Assembler non e' necesssario ricordare 
3 memoria tutte te istruzioni del <6502 
sotto forma di coppie di valori esa 
ne r tantomeno indicare volta per volta 
certe locazioni di memoria cor 
l'indirizzo in esa* 

D'ora in poi scriveremo i programmi in 
Ll*l da inserire nel fET tramite il 


Monitor (Tifi) con a fianco una 
"traduzione" in Assernb ler ? Dobbiamo 
ricordare infatti che ancor piu r che 
nel caso del BASIC non esiste un 
Assembler universale? ma vi sono in 
commercio diversi tiri di Assembler 
che differiscono l’uno dall’altro in 
alcuni particolari. 















Per chi lo desiderasse * ' disponibile 
nastro-cassetta* un proaraims che 
consente di compì lare (tradurre da 
linsuaissfo Mnemonico in VinSuasSio 
Macchina) in Assembler, corredato da 
ampie istruzioni* che potrà J si rare su 
tutti r tipi di PET ( 2000-3000“4000 e 
8000> anche vecchie RDM sia pure da ftK 
e visualizza il programma assemblato 
su video e su stampante. Esso potrà" 
essere richiesto direttamente 

alleatane di questa serie di articoli 
inviando la modesta somma di lire 
25&00 comprensive di spese di 


spedizione* di cassetta e< 
docuMentaz f cne varia. 

Il programma suddetto non £ r 
i nd i spensab ile* r>g r lo s a r a ' per le 
puntate future* al fine di seguire r 
programmi che verranno descritti sul 
POCKET PET; potrà * essere utilissima 
sua le compendio per i lettori che 
vorranno stendere programmi Per conto 
proprio o per scrivere quei programmi 
pubblicati da a\tre riviste che non 
riportano anche MI cosi" dettp "codice 
orsetto"* cioè' il programma scritto 
diirettamente in LM, 



le* i ri -Ei±" i 


Continuiamo ora il discorso sullM.fi 
trattando la torri sp ondenza esistente 
tra numerazione esa e decimale. Per 
esempio per noi il numero 183 
significa un numero di orsetti Pari 
alla somma di un centinaio* otto 
decine e tre unita'. UnVendo esprimere 
questo numero come un insieme di 
potenze di dieci* noi scriviamo : 

1B3 = 1 k 10J2 +■ 0 * 10 »1 4 3 K lOUl) 

Si ricorda che qualsiasi numero* 
tranne 0* e 1 a v at □. .alla potenza nulla 


forniste come risultato il numero 1. 
Inoltre si ricorda che iOIn e' usuale 
a 10 x 10 k .,.,,10 n ,voite. Per 
esempio 10f4 - 10 x 10 x 10 h 10 = 
JOOOO. 

Qualsiasi numero pertanto viene da noi 
rappresentato come la somma di Potenze 
di diec*i± decrescenti (2*1 r 0 nel 
nostro caso perche' 183 e r composto di 
tre crfre) ciascuna moltiplicata per 
un fattore che e' una delle cifre del 
numero considerato. 


Altri aseMPi! 



Tale sistema di numerazione e' stato 
adottato dall'uomo parche' 
probabilmente quando scopri' i nuMeri 
si s^rvi* del metodo p i u' semplice di 
cui Potesse disporre: le dita delle 
nani. 

Un calcolatore* e quindi anche il PET* 
ha a disposizione solamente uno stato 
sito o basso a seconda se in un 
parti colare Punto del circuito 
elettrico vi e' tensione o meno» 
Indicando lo stato alto di t ens i one 
con 1 e quello basso con 0* il 
computer dispone d i un sistema che ha 


appena due simboli e prende appunto il 
nome di 'SISTEMA BINARIO', 

Una cifra, in tale sistemar prende il 
nome di bit* ed una quantita r 
qualunque deve venire espressa come 
p ntenza d f due * 

Concettualmente j due sistemi di 
numerazione* dee e bin* sono identici* 
solo che quello dee ha a disposizione 
10 simboli* quello binario solamente 
due* e perciò' per indicare una stessa 
quantità 1 saremo costretti ad usare 
piu' simboli* ricorrendo al bin* di 
quanti ne occarrono usando il dee. 











EseaF i : 






Potenza di 2 13 2 1 0 f Significato 


V^i lort 

? 1 

1 

—*- 
0 ! 

1x2 *2+1x211+0*210 


i 

1 

1 ! 

1x211 + 1 x2t0 ® 3 <ci 


! 1 I 

1 

1 f 

1x2 *3+1x2 t2+lx2t0 


i 


0 ! 

0x2 te - e 


- 5 (dee) 
ec) 

= 15 <dac.) 


Come abbiano visto pi er rappresentare 
la Quantità" quindici sono sufficienti 
due simboli (1 * 5> nel sistema 
decimai* e ben quattro (Il 1 1> in 
sue Ilo binario. 

Per quantita* non molto Piu* Srsndi 
( del 1 * ord i ne del milione? c'e r bisogno 
di decine di simboli binari contro i 
sette del decimale* 

Come memorizzarli pertanto in un 
calcolatore senza spreco di memoria? 
Il «igtodo e r relativamente semplice se 
si' ricorre al sistema esa* Dalla 
fjfura i della scorsa puntata si può' 
immaginare facilmente che una certa 
quantità 7 sara ' r ap pr esentata da un 


nùmero di simboli esa inferiore a 
quello decimale a sua volta nettamente 
inferiore al binario puro. Poiché 7 La 
memoria di un calcolatore e J una 

sucessicne di aruppi di otto bit 

ciastufiOn noi protrema ccns \ der are » 
per semplicità 7 ^ ciascun byte come se 
fosse formato da due valori esa 

benché" nella realta 1 il valore sia 
"scritto 1 in binario puro (fii* 2 
num.prec). Si presenta ora un altro 
problema nel progetto di un 

ca Ito latore / e cioè 1 come i nd i v i duare* 
tra le tante? una certa locazione di 
memoria. Ad cani byte si assegna un 
indirizzo che altro finn e* se non un 
gruppo di sedici bit. 



—--**-- 

0000 0000 ! ! £100 0000 
0000 0001 ! ! 0100 0010 
0000 0010 M 1111 1111 


DATO 


INDIRIZZO 

A L 


0000 

0000 

0000 


0000 

0000 

0000 


TRfilL ESh 
INE. f DFlTQ 

*-— M -— 

0000 \ 

0001 1 
0002 ! 


0010 


1 U1 U 


In tate modo si possono indirizzare 
23l£=6553ó locazioni di memoria* Con 
un numero inferiore di bit (ad esempio 
otto) si possono indirizzare solamente 
238=254 locazioni di memoria* 
insufficienti per un versatile uso di 
un computer. 

Da notare che in generale i. 
m i cropr oc e ss or i 3d otto bit (A5 0.-;* 
BORO * ZfiO ecc.) trattano come dati 
eruppi di otto bits ed hanno come 
indirizzi Sruppi di sedici bits. 

Per poter sesti re una memoria Piu' 
grande? dato che in teoria non c r e' 
relazione tra numero di bit di un dato 
e numero di bit di un indirizza* si 
potrebbero avere dati di otto bits* ma 
indirizzi di trentadue e comunque Piu' 
di sedici bits. 

Come filai quindi non si scesle questa, 
soluzione per aumentare la capacita' 
oti memoria e invece si ricorre a 
memorie di massa come i nastri 


lasnetici? i floppy disc* o alle 
geniche p iu T sofisticate tipo quetLe 
“Ielle memorie virtuali? Semp l i cement e 
>erche r sarebbe in un primo caso piu' 
-onip lesso* come vedremo in seguito* 
ndirizzare oltre il valore 45536* in 
jn secondo caso risulterebbe 

^cessarlo cambiare I 'architettura 
stessa delle CF'LJ e di conseguenza 
codificare La struttura dei Llflfluasrff. 
3ié r diffusi sul mercato 

internazionale, 

ìitornando asti indirizzi ed ai dati » 


vediamo ora di individuare un 
indirizzo di cui seppi amo il. valore 
solo in decimate o esadecimsle. 

Il problema si presenta quando si 
usano \ comandi F'EFK e fL'SKEr dato che 
siamo costretti: a fornire à\\ 
argomenti dei comandi stessi espressi 
come valori decimali* mentre spesso li 
conosciamo coma valori esa. 
















c=i i 


un numero 
ad un .3.1-tno 


Vogliamo convertir® il numero H0S2 
dee nel c or r i spendente esa (che ha 
sed i c i s i iibol r ), 

Si divide il numero in oggetto per il 
numero di simboli e sf eonsidéra il 
resto ed il quosi ente intero, (Primo 
resto ■ 12; promo quoziente “ 690), Il 
quoziente? se maggiore o usuale a 
sedie ir si divide nuovamente per 
sedici (secondo resto 2; secondo 
quoziente 43); poiché' il nuovo 
quoziente e' ancora maggiore di sedici 
fi ripete il procedimento finche' si 
ottiene un quoziente minore di sedici, 
(terzo resta - 11; terzo quoziente = 
2 ), 

Il numero esa desiderato e' formato 
dai tre resti ottenuti e dall'ultimo 


quoziente in ordine inverso: 

2 11 2 12, 

Infine* sostituendo tali valori con r 
simboli corr è spondenti in ess (fis,l 
n,p,> si ottiene il valore cercato' 
2&2C. 

Convertiamo ora un numero esa in dee 
trattando solamente numeri compresi 
tra 0000 e FFFF? la prima cifra 
rappresenta il numero moltiplicato per 
1623? la seconda per lèi?, poi ié]l e 
quindi lóIOJ pertanto volendo 
convertire 2B?C si scrive? 

2x1fi 43+BxlÉ t2+2x1^!1+Cx1e t0 

cambiando i numeri 6 e C esa in dee 
ottani amo * 

2x16f3+l1x16*2+2xlGtl+12x1619 = 11052 


PEEK e- F'OKE 


Prima di continuare e' utile saper 
usare correttamente le istruzioni 
BASIC PEEK e R0KE» 

Queste istruzioni consentono di 
leggere (PEEK) in tutta la Memoria e 
di scrivere (POKE)un qualsiasi numero 
intero comareso fra 0 e 255 in 
qualsiasi locazione della RAPI * Per 
éitmpio se no i batti amoì 
PRIWT PF£K (4DB0) 

apparirà'? in decimale? il valore 
■della 4080ma locazione RAPI, Viceversa 
battendo 
P0KE 4080,151 

il valore 151 dee, sera' trascritto 
nella 4OB0ma locazione di memoria- 
Da notare pero' che* mentre il comando 
PEEK(X) legge un valere ed in nessun 
caso lo modifica? l'istruzione PCKE 
X?Y cerca di Modificare il valore 
della locazione X, Possono infatti 
verificarsi alcuni casi critici? 


perche' il sistema* per esempio da 
BK? non e' appunto espanso al 
Piassi mo, in un sistema da RK 
l'ultima locazione utilizzabile e' 
la 8i91*ia„ 


3- L'indfrizzo della P0KE rappresenta 

una locazione RAM utilizzata 
Hall '0,5, e una sua modifica feiq' 
'distruggere' il sistema? saremo? in 
questo caso? costretti a spegnere e 
poi riaccendere il computer? 
perdendo Purtroppo tutto- il 

contenuto delle RAM- 

4- 11 valore Y di P0KE K?Y e' negativo 

o e' maggiore di 255, Questo 
l'unico caso in cui appare 


e' 


messaggio di errore, 
presente infine che se 
valore non intero verrà' 
conslderazione solamente 

intera. 


un 
Ten i amo 
Ye' un 
presa in 
la parte 


i-terehiamo di scrivere in una 
locazione ROM del BASIC q del 0.S, 
(Operative System ; sistèma 
operativo del computer)? 

naturalmente il dato che cerchiamo 
di scrivere non viene scritto in 
quanto nelle ROM non si può' 
scrivere e nessun messaggio di 
errore appare Per informarci 
de 11'imross è bilita' di eseguire 

l r istruzione, 

2~An&lo3a mancanza dì messaggio di 
errore si verifica se l'indirizzo 
della F'OKE cade in una zona RAM non 
esistente nella configurazione? 


Supponendo allora di non cadere in uno 
dei casi critici? come facciamo & 
memorizzare un numero maggiore di 255? 
Il procedimento e r un po' lungo? mi e' 
l'unico che sia possibile adottare? 
Vogliamo memorizzare il numero intero 
11052 dee. Abbiamo sia' visto che in 
esa corrisponde a 2E2C? e poiché' ogni 

cifra esa rappresenta quattro hits? in 
totale avremo bisogno di sedici bits* 
Dato che ogni * locazione dì memoria 
contiene otto bits noi potremo 
'spezzare' 2&2C in due fruppf? 2B e 
2C? il pr imo? doro averlo tradotto in 
dee,? lo scriverete in- una locazione? 
il secondo in quella successiva* 




RÌBSfiUMI 3 NO 
parola ? 


il procedimento in altre 



Utilizzi attor per le verifiche che 
seguono? le locazioni RAPI da 826 dee 
(033A e 53 ) fino alla lOSSma. perche 1 
tali locazioni sono destinate alla 
bestione della seconde cassetta a non 
rischialo di distruggere II sistewa- 
Scrivi anno ? 

POKE 926*44! POKE B2?* 43 
Come si p ijo ' notarer del numero 287C 
abbiamo trascritto nella prima 
locazione (826) il valore 2C (LS& * 
Least Significarti Byte - Byte meno 
significativo) e nella successiva 
(827 ) il 2B (USB ? Plost significarti 
Byte E Byte piu 1 siSnificativo) 
anziché 1 al contrario come saremmo 
stati indotti a fare istintivamente, 
Adottiamo questo procedimento perche 1 * 


come abbiamo visto a pagina 3 della 
prima puntatar lo sesue anche la CPU, 
Come faremo* allora. a sapere quale 
numero e 1 rappresentato da due 
locazioni di memoria successive? 
Naturalmente seguendo il rasionamento 
i riverso : 

Traduciamo 1 T P15B in decimale e lo 
moltiplichiamo per 254 
2B osa - 43 dee ; 43 a 254 - 11008 
Analo3-amente ci comportiamo per l'LSB 
moltiplicandolo pero' per 1 

(lasciandolo cioè 1 invariato)! 

2C esa = 44 dee 

In seguito eseguiamo la somma fra i 
due * 

11008 + 44 = 11052 


Altri esempio 



Come si può' notare il numero piu 1 
Srande che si può' rappresentare e' 
45535 ed il piu' piccolo e f zero* ma 
tutti positivi- Se Fero 1 rinunciamo ad 
ottenere valori cosi r grandi possiamo 
seguire la convenzione secondo cui 


sono da considerare positivi i valori 
fino al numero {65535-1)/2 cioè 1 da 
zero a 327 é? r mentre da 3276P 3 45535 
inclusi sono negativi e valsone 
esattamente 11 valore considerato meno 
32767s 


















fr* questo mocfq possi siilo rapprasentare 
tutti j numeri interi negativi e, 
positivi comprasi fra -32768 * +32767. 
Ecco spiegato» d u n s u e r perche' certi 
computer* non «alto sofisticati (ed 


anche il PET quando usiamo vari abiti 
intére tipo A3£> trattano so tacente 
sue ii numeri interi! con due byte* 
adiacenti non e' possibile superare 
l'intervallo suddetto. 


Sornm-=■- ’fr^i nume-r i esai 


Siamo ora in grado di 'scrivere' un 
numero intero compreso tra -32768 e 
+32767. fediamo ora come eseguire la 
somma fra due numeri dee e poi esa. 
Facendo la somma dell T esewpio sui 


Ansiosamente avviene per due numeri 
ess r solo che consideriamo il riporto 
quando la somma supera il numero F 
US); (es.s somma fra A e P- della 
figura sopra riportata?. 

Prima di continuare ri cordi ano che in 
inglese riporto si traduce con il 
termine CARRY* ed in seguito lo 
chiameremo sempre in questa maniera. 
Tra Ve istruzioni in LÀ del 6502 ve ne 
sono ben otto di somma tra due bates e 
ne esaminiamo ora una: 


Codice esa 69! istruzione a due bytes* 
codice mnemonico AOC# derivato da ADd 
are Lunulator immediate uith trarr y. 

E sema i a ! 



Quando il uf" incontra questa 
istruzione* esegue la somma tra il 
valore che si trova in quel momento 
nel l ' accumula tor e * il numero e sa 77 . e 
1 T eve_fìtue le Carry, 


sotto riportato* notiamo che quandi la 
somma di due cifre corrispondenti 
supera il numero nove* dobbiamo 
considerare il riporto nella 
successiva colonna (somma tra 8 e 5? 
tra 6 e 6 ?. 


^adiamo ora alcuni 



k E n ^ r k ES 

Q33A IR CLear Carry (CLC? 


Istruzione ad un solo byte* 
implicita* cioè' non ha bisogno 
dr indirizzi q di dati per la sua 
interrretazione. Questa 
istruzione cancella il trarrsi 
eventualmente presente nel 


registro della CFU. Ritorneremo 
io seguito su questa istruzione. 
















033& A? 02 LDA# #2 vedi numi, 

prec * 

0341 60 RT5 Return subrut ì ne i 

istruzione implicita anche 

questa: non e 1 *' bisogno di altre 
infcrmazion ì per specificare il 
compì td da svelisene, 

0342 E A ... EA NOP No Operati ori. 
Tesser i v i a*io mesto spoppo di EA 
perche r in servito sis Piu r 
semplice rintracciare sul video 
il risultato della somma* Per la 
cronaca EA e' una istruzione 
implicita che si ani fica t 'non 
eseguire alcuna operazione'? al 
contrario di quanto possa 
sembrare e" una istruzione molto 
ut iter come vedremo in seguito. 


Per fare sirare si programma battiamo 
di se su ito 5 

FOKE 328,2: POKE 830,7? SYS 18 26) e 
poi chiamiamo il monitor C TIM > 
mediante BYSC4) (nuove RUPI) o 
SYS(LG3?) (vecchie RCìfl, dopo aver 
caricato il TJO, Appari ra’: 



Infatti : 




battiamo: fl Q33A 034A Apparirà': 



READY 


(Ira sia modificando il monitor sia 
ricorrendo a F'OKE 828,nn e PQKE 830,nn 
r modifichiamo il valore di 033C e di 
C33E e ripetendo le operazioni 
precedenti!, in 0345 comparirà* sempre 
il risultato della somma, a meno che 
La somma dei due numeri caricati non 
superi il valore FFJ infatti 
consideriamo le seguenti somme esa: 


Come si può* notare allo stesso 
risultato si puq' arrivare anche 

sommando FC e 14» Come facciamo ora a 
sapere se il valore contenuto in 0345 
e' tl risultato di una somma inferiore 
o sup eriore ad FF7 


A tale scopo consideriamo il registro 
di stato CST3 della CPU £502? esso e' 
un particolare registro dì sedici bits 
interno alla CPU stessa che memorizza 
diverse informazioni tra l* quali il 
Carry? Il bit dell'§T corrisfondante 
al Carry viene automaticamente posto 
IsettatoJ ad 1 se, dopo l’esecuzione 
di alcune istruzioni, tra le quali la 
somma, si supera il valore FF. Da quel 
momento esso non viene pìu f cancellato 
Icioe' resettato o portato a 0Ì anche 
se in seguito si esegue una somma che 
non ha riporto! 

Ecco perche" la prima istruzione di 
una procedura di somma deve SEMPRE 
essere CLC che viene cosi’ 
interpretata : resetta il Carry che 
eventualmente e' stato posto ad 1 da 
una operazione precedente* 

Miglioriamo ora il programma in LH 
visto e, per fare questo, esaminiamo 
un'altra istruzione di BRANCHI esalto 
cond r z t onaio 'f ? 

BCS ? Branoh on C Set to i = Salta se 
il Carra e' usuale ad 1, 

Codice operativo : 60 xx; dove xx 
rappresenta l’entità 1 del salto, vedi 
ras. Z numero scorso (RErtarks 0340* 




















033R 





@826 - START 

18 



CLC 

A3 

m 


Lum #e 

8D 

52 

03 

STR; RIPORTO 

H9 

02 


LBR# #2 

69 

07 


RBC# #7 

8D 

45 

03 

STRI BVTE SOMMA 

B0 

01 


BCS + MODIFICA 

60 



RTS 

m 

01 


- MODIFICA 




LBR# #1 

SE 

52 

03 

str; riporto 

60 



RTS 

EA 



NGF 

É t 

EA 



=*RIPORTO 

ER 



= BVTE SOMMA 

ER 



N0P 


REMark^ 


A9 00 
SD 32 03 


BQ 01 


60 


A? 01 
8D 52 03 


Queste due istruzioni 
scrivono 00 nella locazione 
0352 che servirà' a 
visualizzare l'eventuale 
riporto. 

Se la somma appena eseguita 
supera il valore F F il bit 
di Carry viene posto a t e 
pertanto il salto di un byte 
e 1 eseguito e l'elaborazione 
cont r nua da 034A, 

Se la somma eseguita non ha 
riporto il Carry rimane come 
prima T e cioe' a 0 (cfr_ 
isti 033A 13 )ì si ritorna al 
BASIC. 

Nella locazione 035? 
indicata in Assembler con 
RITORTO viene trascritto il 
valore 01. 


Facciano ora Sirare il Programma nel 
solito modo (SYS R2ó) ricordando che i 
nuovi indirizzi delle POKEs sono 333 e 
335, Se la somma eseguita avra' 
riporto o «ero lo noteremo dalla 
presenza? o meno? di 01 in 0352* 


Dato che ci siamo commentiamo alcune 
righe del programma scritto in 
Assembler * 


f?S2 6 = START Cquiunica al programma 
ASSErt&LERj definendola con il 
nome 'START', la locazione dalla 
suale il Fro4r3ffiN3 i.PQ deve essere 
allocato, Jl programma 

( ASSEMBLER) automaticamente 

provvedeva' ad incrementare fili 
indirizzi Per le successive 
istruzioni. Ciò' significa che se 
per esempio vogliamo collocarla 
nella memoria a Partire dalla 
locazione 0355 invece che dalla 
033A sarà' sufficente modificare 
solamente 0f0355=START; a 

modificare tutti sii indirizzi 
provvedera' automaticamente 

1"ASSEMBLER. 

STA! RIPORTO, Memorizza il valore 
attuale (corrente) 

dell'accumulatore nella locazione 
indicata in seguito con 

'riporto 1 » 

STA; BYTE SOMMA, Trasferisce il valore 
corrente dell'accumulatore nel 

byte definito in questo modo. 

BCS + MODIFICA* Se ri Carry e' usuale 
al il programma continua dalla 
locazione indicata come 

'MODIFICA'- Attenzione! 

1'ASSEMBLER elabora 

automaticamente l'entità' del 

salto evitando noiosi calcoli! 


I vari nomi di fantasia che facilitano 
nettamente la stesura di un programma 
sono chiamati LABELS (etichette). 

Come si può' notare il prò dramma 
scritto in Assembler e ? di sran lunga 
Piu' semplice da interpretare deLl'LM. 
Esegui ano ora una somma di due numeri: T 
ciascuno dei guati occupa due bvtes. 



In pratica dobbiamo dapprima eseguire 
la somma tra ali ultimi due hyl%s (LA 
+21), trascrivere il risultato da 
gualche parte e tener presente 
l'eventuale Carry (nel caso specifico 
esiste). In seguito sommi amo i primi 
due bytes fra loro e l'eventuale Carry 
(2C + 32 + U, 

Jl programma può' essere il seguente! 











frinì» di esesuire la seconda somma 
ELDA# #*2C - A DEH 1**32) Hm bisogna 
inserire CLC perche' e f necessario 
considerare il Cam* eventualmente 
presenta in seguito all» prima somma. ^ 
Il lettore , per èserci^iOr può' 
modificare il programma inserendo una 
F SPÌa T per l'eventuale secondo 
riporta* cosile abbiamo fatto nel 
prpiramwino precedente. 

Prima di terminare parliamo d> 
un'altra istruzione implicita? SED 
(S£t Decimai mode > » codice operativo 


Dall'istrwzione successiva a SED le 
somme vendono eseguite in decimale 
anziché* in esaj FO e' di notevole 
comodità' in molti casi? provate ad 
inserirla nel programmi precedenti 
prima dì CLC o subito dopo. Attenzione 
Pero 1 che se il modo di operare e' 
decimale e chiediamo di sommare valori 
esa si verificano desìi errori. 

Per ripristinare il modo esa e' 
necessaria l'istruzione implicita CLD 

(CLear Decimai mode) codice operativo 
[)Bì senza questa istruzione infatti La 
CPU continuerà* sempre a ragionare in 
decimale. Consiglio a chi desidera 


sperimentare l'istruzione SED di 
inserire D8 prima di o3ni PIS per 
evitare malfunzionamenti del BASIC. 


Per concludere* a partire dalla 
locazione 033A:. inserite il seguente 
prodramma e battete SIS ( B 2 6 ) dopo aver 
cancellato lo schermo. 




■ :-■■■’; a,-: 


8330 02 00 ED 48 88 9L 00 SO 
8342 £8 E@ 18 D8 F5 69 28 20 
0340 2fi 2R 20 20 20 £0 2F\ 20 
0352 10 SF 03 0E 05 14 2R 28 
8350 lw 05 14 20 20 20 20 20 
0362 2R 2fl 20 t0 20 . . .. 


Dato che contiene istruzioni che non 
abbiamo ancora incontrato In 
commenteremo nella prossima puntata e 
non vi diciamo a cosa serve per 
incuriosirvi. Il lettore tenss 
comunque presente che Q33B contiene 
l'inizio? 0343 contiene la fine? de 
0348 a 036... st può' modificare il 
contenuto senza alcun pericolo... che 
cose aspettate a decifrare 
suesi'ultima frase?. 


Il recapito dell'autore di questa 
serie di articoli e' il seguente? 

Alessandro de S i mon^ 
casella postale ?4 
20035 Lissone (Ariano) 
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100 

110 

126 

130 

140 

158 

160 

178 

130 

136 

280 

210 


REM* RICONOSCI MENICI FHJTOM0TICG * 
REM* VERSIONE REI-CBN E FLOPPY * 

REM* :------* 

REM* GLORIFiHO ROSSI - USER GROUP* 


BASIC -& 


B$C0) = 14 SERIE 
E$a> = "SERIE 
B#<2)="SERIE 
6$<3)="SERIE 
FLOPPY 
B$(2^'FLOPPY 
^<3)=” FLOPPY 


2001 BRSIC 
3000 BRSIC 
■4O0tì BRulC 
3000 BRSIC 
DISK 204ti 
DISK 4040 
DISK 8650 


i.tr 

£.0" 

4.0" 

4.Ò" 

(DOS 

CliOS 

OjOS 


1 . 0 )" 
2. 0 > - ‘ 
2,5)"' 


Con questo breye- programma fi kuc<- rì- 
conosce-re- La. uersione BRSIC e » -*ualo 
IjOS as^arte-risono i nostri f lorr-y disk, 
Cr-^ortunamerrte se e Ite * le istruzioni di 
r i co no se i m en t o < r i s he 238 fino 2 3 0 ) 
possono essere a,dottate in qualsiasi 
altro fo-rowramm». sesti una, le e non. 

Un» Piccola utility, dunque* per- rendere 
i yos tr i & r os ramivi i u ri i v er sali. 


230 

24@ 

250 

270 

280 

230 

380 

310 


Fi=PEEKt 57345) ■ TP=6 IF0THENTP-1 ■ IF flflND 1T HE NT P-3 : IF NRND4 T HE N T P=2 
0PEH15.3*15 

PRINT#15j n M"R M CHF^<255>CHR*^255) 

GET#15>0* 

CL0SE15 

fl-RSC(Rt) : TB=1■IFPRNEieTHENTD=3 IFHRNXlTHENTD-2 
REM************ RISULTPTI 
PRINTB$<TP>-PRINTHf<TIO 












Cacci 


Roberto Sozz 


Questo programma,come dice il 
titolarvi permetterà 1 di ci¬ 
mentarvi in una appassionata 
quanto pericolosa caccia al ra¬ 
gno , 

Prima di esaminare per somme 
linee il programma, vediamo 
un po' le regole del gioco: 
sulla sinistra dello schermo 
apparirà' la canna del vostro 

fucile, ad una altezza variabile scelta casualmente. 

Dall'alto scenderà 1 un ragno, calandosi con la sua ragnatela. 

Posizione sullo schermo e velocita' di discesa sono anch'erse 
casualmente. 

Per sparare bisogna premere il tasto '"space 11 , tenendo presente che 
ragno si arresta al momento dello sparo* 

Se ai colpisce il ragno, tutto bene; altrimenti cominciano i guai! 

Infatti questi sono ragni di una. razza particolare, molto intelligente* Se 
non li colpite, questi furbacchioni vanno a costruire un muro, piazzando 
un mattone alla volta, proprio davanti al vostro fucile. 


scelte 


diventa alto, piu' difficile diventerà 11 per voi poter 

una altezza 


Piu 1 il muro 
sparare . 

Potrà" capitare, infatti, che il fucile venga posizionato ad 
inferiore a quella del muro. 

In questo caso il ragno potrà" scendere indisturbato, e sistemare un altro 
mattone sul muro, aumentando ulteriormente il vostro handicap* 

Anche per voi pero' c'e' una possibilità': i vostri proiettili, di una 
lega speciale, sono in grado di sgretolare un mattone in due colpi» Il 
primo colpo comprime il mattone, mentre il secondo lo attraversa come se 
niente fosse. Se vi trovate di fronte il muro, quindi, sparate lo stesso! 
Se in futuro vi troverete nella stessa posizione, potrete sparare al ragno 
forando il muro. Ma attenziones il prossimo ragno che non colpirete, 
andrà" a tappare il buco, invece di piazzare il mattone sulla sommità' del 


mu ro » 


I ragni in totale sono 20, ed a turno scenderanno per costruire il muro* 
Se li uccidete tutti, avete vinto; se invece il muro raggiunge una certa 
altezza, tale da non permettervi piu" di sparare, allora i ragni prendono 
il sopravvento e voi avete perso* In alto a diestra apparirà' il numero dei 
ragni uccisi, a sinistra il numero dei colpi sparati* Se volete 
interrompere il gioco, ricordatevi dì premere il tasto ft Q ir e pori 
"RUN STOP 11 (poi vi spiegherò" il perche 1 ). 

A questo punto non vi resta che copiare il programma e poicomincia la 
strage ! ! 


































REMarks 


RIGHE T.0, 20* 930, 940, 950, 960, 970; breve routine in linguaggio 
macchina ohe crea una cornice sullo schermo. 

Chi disponesse di PET con vecchie SOM„ dovrà' apportare le 
seguenti modifiche: 

I ) Cancellare le righe sopraindicate; 

II ) inserire le seguenti righe; 

42 F0RI=:32768TG328Q7: POKEI, 1Q2:NEXT 

114 FORIb 328Q8TO337285TEP*I0: POfCEI, 10 2 : POKEIt-39 T 102:MEXT 

46 FORI = 337 28T033768:FOKEI, 103 :NEXT: RETURN 
III) Modificare: 

Riga 40; sostituire SYS 826 con ’COSUB 42: GOTO 50' 

Riga 260: sostituire SYS 826 con f GOSUB 4£' 

RIGHE 40/160: presentano il programma* Il ragno si muove sullo schermo 
e fa dispetti. Prosegue fino a quando non si preme un tasto a 
caso. 

RIGA ITO: regola la velocita dì caduta (V viene determinata alla 
riga 340)* 

RIGA 180: regola le pause. 

RIGHE 190/220: Regolano il suono; la riga 220 azzera i valori della 
user port, altrimenti i comandi si SAVE e L0AD restano 
disabilitati. E' importante uscire dal programma premendo il 
tasto "Q 1f e non RUW STOP. Se si preme W Q" infatti si passa 
automaticamente dalla riga 220 (vedi riga 390)* 

RIGHE 230/250 - 690/820: istruzioni* 

RIGA 270: annulla tutti i tasti premuti dopo il primo sparo* 

RIGA 280: azzeramento delie variabili e stampa del numero dei ragni 
uccìsi * 

RIGA 290: stampa colpi sparati* 

RIGHE 3 OO/ 32 O: costruzione canna del fucile, calcolo riga dello 
schermo e sua stampa* 

RIGHE 350/360: calcolo colonna di discesa del ragno. 

RIGHE 370/400: discesa del ragno* 

RIGHE 420/440: sparti. 

RIGHE 450/510: analizza, tramite il comando PEEK, cosa incontra il 
proiettile nella sua traiettoria* 

RIGA 520: se il ragno arriva al pavimento, rimanda alla subroutine di 
riga 900* 

RIGA 530: se il muro ha raggiunto una certa altezza, il giocg finisce 
e tu hai perso. 

RIGA 540: cancella la parte superiore della ragnatela* La variabile 
TT = SIN (5) serve solo a creare un certo rallentamento 
nell 1 esecuzione del ciclo di FDR...NEX1. 

RIGHE 550/560; cancella la canna del fucile e si passa ad un nuove 
ragno * 

RIGHE 570/630: fine del gioco e riassunto dei dati. 

RIGHE 830/840: taglio della ragnatela* 

RIGA 860 : cancella la parte inferiore della ragnatela. 

RIGHE 880/890; caduta del .ragne dopo il taglio della ragnatela. 

RIGHE 900/980: costruzione del muro* 


& 
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1 - 3l 


1 R^rtO ni^ir-o 


1 REM #######+4444+4+4*4*4-4*4+4*4 

2 REM m # <0 ROBERTO SOZZONI 4*4 

3 REM #4* POCKET GROUP *#4 

4 REM 4*4 MILANO 16/2/31 4#4 

5 REM 44*44*444444*4#444#4*#4**## 

6 REM *4* CFiCCIR RL 4*4 

7 REM ### RRGNO MERO 4*4 

3 REM #4444*444*4****4 *+#*#*4***4 
9 REM 

19 READ A,B 

20 FORI=ATO£:REfìDX■PQKEI,X=NEXTI 
36 PR3MT"T f 

40 P-59467 : 0*59466■N=59464■€=51 • TR=20 r SYS826 

SO PDKE216,12'P0KE198j10■SYS57949 : PR INI" “CACCIA RL RAGNO <2) !" 

60 PRINTTRB(12>"SU- POCKET GROUP 
70 PRINTTfìB< 13> "MBY EX I2JG <n> J " 

S0 PR1 NT TRE <6 > " IfflUlSFREM I UH TASTO PER COMINCI ARE 1 ' 

90 GOSUBi80 

100 X=32822 : POKEX,33:3=40 :L=93:M=32:V=200 

! i 0 FORK= 1T016 : SETA# : IFRfO" " THEN230 

120 X=X+S^PQKEX,42:GGSUB200■GDSUB170 = FQKEX,L■ NEXT 

130 IFL*32TH£NGOSUB180:GOTO100 

140 POKEX 1 42 ’ GOSUBI70 IFREEK < X+40 >=32THENI1=9 

150 GOSUBI70:FOKEX+40,M=GOSUB190•GOSUBI70 POKEX,32 

160 S=-40. ; L-32 : G0T0110 

170 FORJ= 1TOV : NEXT ■ RETURN 

130 FORTUITO1000:NEXT:RETURN 

190 POKER•16:POKEO,35-FORI-250TG1STEP-40-POKEN .I :NEXT:GOTQ220 
£60 POKEP,16 : POKEO,C-PGKENL£55■FORI=lT010 : NEXT : GDTO220 
210 POKERv 16-POKEQ, 15 F0IRI-5TG255STEP5 : PGKEN, I - NEXT 
220 POKE P,Ù POKEO,0 :POKE N,0 = RETURN 

230 PRIHV'immmoajUl SVUOI LE ISTRUZIONI ?"' 

240 GE Tfi$ : I FA*=" T HE N24 0 
256 IFRS- 1 , S , "THENJjGSUB 690 
260 FRI NT 11 13" r SYS826 
270 FORG=lTO20 : GETfi# : NEXT 

280 SP=G:Rfì=0 : RR=6 ; C=51 -WW=6 P0KE216.0'POKE193,35 SYS57949 PRINT"sì” 3C 
290 PRINT ,, « ,, TflB<3> ,, a ,, T 

300 ~3IHI-" Rl=INTC20*RNDa>+l> IFRK3THENRI=3 

310 F04=" >111! M 

326 PGKE216, RI : POKE 198* 1 : 3V357949 : PRINTFf 
330 GOSUBI80 
340 V-<4*RHDa ) + .5>*30 
356 C0=1NT<224RND<1>+l> 

360 X1=3281S+C0:P0KEX1,93 
376 F0RN=1T02£ 

380 Xl=Xl+46 P0KEX1,42- IFSP=0THENGETAf: IFh$= m '"THEN3P=1 GOTO420 

390 lFA$= y Q , "THENGGSUB220 GOTO570 

408 GOSUB20©■GGSUB170 :POKEX1,93 : NEXT : P0KEX1,42 

410 GQTO520 

420 T=T+1 :X=32811+40#<RI-1> F0RQ-1TQ36 POKEX+Q, 64 FGKEX+O, 32 
430 IFPEEKCX+Q+1 > O32THEN450 
446 NEXTO 

45© IF PEEK < X+Q+1 > -1 @2ANDQ<5THENPQKEX+Q+1,113:00 3UB210 : PO! EX 1,93■NEXT 14 
460 I FPfEEK C X+Q+1) = 11STHENMEXTQ 

470 IFPEEKCX+0+1>=102THENC=5l GGSUE216 IFWW=0THENPOKEXl,33 : NEXTW 
48© IFRR=1THENGOSUBS50:GOTD530 

490 IFPEEK<X+Q+1>=42THENC=15 ■' TR-TR-1 : GOSUB206 ; SC“SC+1 H4H=1 MEXT 
506 IFTR=0TMEN630 

516 IFPEEK<X+Q+1 >=93TMEJH00SUE 190 : RR=1 :X2=X1 :UI4= 1 :GOSUB830 NEXTG 

520 IFPEEK<X1+40> = 102THENM=X1:N=22:C~15 ^GOSUB2S0:P0KEX1-4G,75 :V=13■GOSUE900 

536 1FMM=<33097flNDMM>0THEN570 

546 POPI=WTO1STEP-1 Xl-Xl-46 :POKEX1,32 TT=3IN<5) : NEXT 
550 PQKE216, RI : POKE 198, I : SVS57949 : PRlt-JTFOi 
560 GOTO270 


4^4 444 

* * * * 
44# 

###4 #44# 4' 4 #4-4 
)^E ^ i|i 

*#4#* 444 44*44 
# #4 4 

* * 

4 # 





570 PRINT"^X0®®(WT RAGNI HANNO AVUTO IL SOPRAVVENTO 
580 !Ffì*0*Q"THENPRINT 11 KN ON PUOI PIU" SPARARE ! f 11 


i i 


590 PRINT"IHAI UCCISO"; SCj "RAGNI" ; IFSC-1 THENPR I NT "ICT , 
600 PRINT" 3N";T; "TIRI"; ; I FT=1 THENPR 1 NT "im" 

610 FRI NT : PRINT"ÌÌÌ1A" ; TR; “RAGNI SONO ANCORA VIVI Jf 11 
620 PRlNTTAfi<10>">*®«WW3WUOI RITENTARE ? fi GOTO660 
630 PRINT M nW*OM^COMPLI11ENTI ! HAI UCCISO TUTTI I RAGNI" 
640 PRINTTABt 13>"MIN" ; T; "TIRI " 

650 F^I.NTTABi;e> M :i»lJtì^^UOI GIOCARE ANCORA ?" 

660 GETA# : IFA$- M "THEN6£0 

670 IFfi$<> 1J N " IHENT-0 : S€=0 * TR=20 : MM=@ : G0TQ26G 
600 ENI) ^ REM FINE GIOCO " 


690 PfcINT"n*LA TUA CASA E" INFESTATA DA RAGNI DI UNA" 

700 PRINT'.T^AZZA PARTICOLARE MOLTO INTELLIGENTE." 

710 PRfNT"S3AL MOMENTO CE NE SONO 20 ED A TURNO" 

720 PRINT"SCENDERANNO DAL SOFFITTO; TU PUOI SPARA-RE PREMENDO 3BFRCE5. u 
730 PRINT"tìDGNI VOLTA CHE RAGGIUNGONO IL PAVIMENTO AGGIUNGONO UN MATTONE AD"; 
740 PRINT IJ UN MURO CHE COSTRUISCONO PER RIPARARSI DAI TUOI PRO-IETTILI. " 
750 PRINT ri USE PERO" COLPISCI DUE VOLTE LO STESSO MATTONE, LO DISINTEGRI." 
760 PRINF-rtPER AIUTARTI A TENERE IL CONTO, IN ALTO A DESTRA APPARIRÀ-' IL"; 

770 PRI NT” NUMERO DEI RAGNI UCCISI, A SINISTRA QUELLO DEI COLPI ,r 
780 PRINT"SPARATI 

790 PRINT ")(PER FINIRE PREMI S'Q" 

800 PRINT"! SPREMI UN TASTO PER INIZIARE" 

810 GETA* IFA$= ,,H THENS10 

S20 RETURN : REM RITORNO DOPO LE SPIEGAZIONI" 

830 PQKEX+GH39 > 74:IFPEEK<X+G+41)=93THENPGKEX+Q+4l,85 :RA-1 

840 RETURN 

850 IFRfì=0THENS70 

860 FORCC-32818+CO+40#RITGX1-40STEP40■PQKECC,32 NEXT 
87© C=L5 : V-10■IFW=22THENGQSUB£00■RETURN 

880 FOREX1, 32 -FORM=»X£TO<X2+<21-N>#40>STER40 : PGKEM^ 42- OOSUE170 ; PQKEM, 32 - NEXT 
890 POKEM,42 ; GOSUE20O 

900 POKEM,32 :FORMM=MT0336985TER-1 :POKEMM,42■GGSUM70:C=5i:G0SUE2SG:FOKEMM,32 

910 NEXTI1J1 FORACI TO20 IFPEEK^1M-2>O32THENMM=MM-40 : NEXTA 

920 POKEMM-1,42 : G0SUB19B ■ POKEMM-2,102 ■ GOSUB180 ■ POKEMM-1,32 : RETURN : REM" 

930 DATA 826, 890 

940 DATA 173,121,3,133,1,173,122,3,133,2,162,23,160,0,169,182 
950 DATA 145,1,200,192,40,208,249.224>23,208.35*160,0,24,165.1 
960 DATA 185,40,133,1,165,2,105,0M33,2,163,102,145,1,160,39 
970 DATA 145,1,202,208,238,165,1,105,48,133,i,76,70,3,96,0,128 

-——>KH*---^H*“-—-—— 




S.p.A. 




Commodore 

















Luciano ha colpito ancorai Una ne fa, ma cento ne pensa. Con un PET ed una 
stampante grafica tipo 3022 o 4022* ecco cosa si può* ottenere: 



100 

110 

120 

150 

140 

150 

166 

170 

150 

130 

200 

210 

220 

250 

240 

250 

260 

270 

260 


REM ***********^#*#**** TRIDIMENSIONALE #######*############ 
REM * * * * 
REM * POCKET GROUP f********************$*$*$##4 EFFETTO 2022 * 
REM sN * 
REM *#*or#**:tm******#M***M**#*#*#***#***#*# LUCIANO ODORA DI $ FIGLIO * 


REM 



QPEN6, 4, £ : FRINII CHE*<3> ' QPEN1,4 : CMD 1 : (1=75=1 - C-13 - E-64 
;d*= ji : E*-"ì M “G0SUD275 

FORD-ET 0 A : PEI NT A* : NEXT ; A-R-& : IFfl<ETHENC#= ,l - u : GOSUB270 : GOTO230 
F0RB=ETOR■FRINTB*■NEXT-A-A-T; IFfKBTHENC*- M :GDSUB270■G0T0230 
GijTO200 
A=B 


IJ 

li 


FORD=BT0fì : FRINITA*- NEXT : fì=A+B -1 FA>CTHENC*='V J ; GO6UE270 - GOTO2S0 
F0RD=BT0fi'FRINTE* NEXT■A=A+E•IFR>CTHENC*='V J :GOSUB27S : GOTO280 
0 UTPJ 24 Ù 

PRINTD*; FORL=ETOE PRINTC$; : NEXT : FRINIC*;:PRINTEf 1 RETURN 
PRINT#é j CHR*C24> CLOSES CLOSEi 
























I lettori esperti ci scuseranno, se spendiamo qualche parola allo scopo di 
chiarire, ai jneno esperti, il significato e l r utilita’ di un programma 
"EDITOR 1 ' ¥ 

Si dice, infatti EDITOR un programma ih grado di gestire un testo let¬ 
terario o grafico , e cioè' di modificarlo, di correggerlo, di memorizzarlo * 
sia temporaneamente, sia su supporto (Cassette, floppy), e quindi di 
stamparlo, ed, eventualmente, di impaginarlo. 

Vi sono molti programmi, decisamente sofisticati, in genere scritti in 
Linguaggio Macchina, che permettono di fare tutto ciò, 1 in grande stile (vedi, 
ad esempio il Word Processing, di cui e f la descrizione sul numero 0 di' 
Pocket Fet), ma questi programmi hanno due pseudG difetti; 

- esigono una memoria di 32 Kbytes 

- vengono gestiti da Floppy Disk 

Perciò r chi non possiede una Unita' Floppy Disk oppure non dispone di . una 
memoria adeguata, ma possiede una Stampante, non può 1 , neppure volendo, 
usufruire di questi programmi. 

Abbiamo perciò' deciso di realizzare un programmino che avesse le caratte¬ 
ristiche fondamentali di un Editor, pur essendo molto breve, ed essendo 
scritto in Linguaggio Basic. 

Ci siamo messi al lavoro, ed abbiamo ottenuto un programma che, nella sua 
brevità', ha delle sorprendenti caratteristiche. 

Esso, infatti, permette di usare io schermo del PET come la pagina di un 
quaderno, dove si può' scrivere, o disegnare, ciò' che si desidera» 

Se vi sono degli errori, questi possono venire corretti, usando 1 tasti che 
comandano il cursore (come se ai stesse correggendo un programma). Una volta 
otenuto il testo e giudicatolo- soddisfacente, si può' memorizzare V intera 
pagina, collocandola in un zona di memoria libera del PET, e si può' creare 
un numero crescente di pagine in proporzione alla memoria a disposizione 
del1 T apparecchio (il programma stesso esegue questo Test, e perciò 1 , non vi 
permette di sbagliare). 












che si 


Quando si e 1 finito di memorizzare p si puo T richiamare la pagina 
desidera* rivederla,, e, se si desidera,, stamparla* 

Se il testo viene ritenuto degno di essere conservato* io si può 1 
registrare, pagina per paginà, su Cassetta; il giorno che si desidererà' 
riutilizzarlo, potrà 1 venire ricaricato da Cassetta e, quindi, venire 
eventualmente ricorretto o ristampato. 

Non e f poeo, vero? 

Vi anticipiamo, inoltre, che, probabilmente, vi saranno delle implemen¬ 
tazioni al programma che verranno pubblicate sui prossimo numeri di 
Pocket Pefe, 

Anche per questa ragione vi consigliamo di mantenere la numerazione di 100 
ir 100, come ve la proponiamo noi in modo da disporre dello spazio 
necessario per le implementazioni, 


USO DEL PROGRAMMA 


Una volta battuto e corretto il programma, potete dare il fatidico comando 
di fUIN: vedrete apparire sullo schermo, in aito, la scritta: 

- SONO DISPONIBILI ** N.. PAGINE 

dove N e f il numero di pagine massimo che il Computer puo r memorizzare in 
funzione della propria memoria RAM libera* 

E 1 intuitivo che, in presenza di eventuali programmi in Linguaggio Mac¬ 
china, quali il Basic Plus, etc., vi sana 1 una minore disponibilità’ di 
pagine. 

Dopo qualche secondo, apparirà 1 la pagina con la sua intestazione* 

Come si vedrà' ( le prime due righe sono necessariamente dedicate al display 
del tipo di ordini che si vorranno dare al Computer* 

Il cursore iampeggera* all'inizio delle 23 righe disponibili, e si 
comporterà' esattamente come fosse al di fuori di un programmai cioè’ sara’ 
movibile tramite i comandi usuali di EDIT di schermo, compresi lo SPACE e il 

delete,. 

A questo punto, si può 1 scrivere il messaggio desiderato, o eseguire il 
disegno che si preferisce* 

« * 

In caso di errore, le correzioni avvengono tramite i soliti tasti DELETE 
CURSQR UP, CURSOR DOWN, anche shiftati. 

Una volta soddisfatti del testo, lo si puo f memorizzare o stampare. 

Noi vi consigliamo di memorizzare ogni testo, prima di compiere qualsiasi 
altra operazione: questo perche* qualsiasi errore possiate commettere, il 
testo si troverà * al sicuro. Inoltre, se per la stampa non e’ necessario 
memorizzare, lo e 1 di certo per il passaggio su cassetta, che non avviene 
direttamente dalla memoria di schermo* 









COME SI DANNO I COMANDI 


Quando sì desidera dare un comando, si deve premere il tasto "HOME CURSOR"; 
affinehe'il cursore vada a lampeggiare nel riquadro piu f in alto e a 
sinistra dello schermo* cioè 1, al disopra della "X” dell * intestazione » 

A questo punto si deve premere il comando e si vedra T apparire la scrit¬ 
ta in reverse "ATTENDO ORDINI"» 

Il PET e' in GOMMANO MODE , cioè’attende che voi premiate uro dei seguenti 
tasti* 


M- 

MEMORIZZA 

L- 

CARICA 

DA 

CASSETTA 

R- 

RICHIAMA 

F- 

STAMPA 

LO 

SCHERMO 

S- 

salva SU CASSETTA 

C- 

cancella 

LO SCHERMO 


Se vi sbagliate e premete un tasto che non e’ t potete cancellare 1 “er¬ 
rore - premendo SPACE o DELETE, e 1 * intestazione verra 1 riscritta in modo cor¬ 
retto. 


Vediamo ora i comandi ad uno ad uno: 


M - memorizza 

Questo comando, una volta premuto* fara f apparire la scritta "NUM,PAGINA?" 
sull‘intestazione _ 

Dovrete quinci decidere quale numero progressivo, da 0 al numero massimo di 
pagine consentito, potete dare alla vostra pagina. 

Se userete un numero minore di 0 o maggiore del massimo consentito, ap¬ 
parirà’ la scritta "NON ESISTE". 

Una volta battuto il numero, il cursore si spegnerà 1 * e il PET eomlncera’ 
ad analizzare lo schermo* incasellando nella memoria libera successiva al¬ 
lo spazio occupato dal programma,. i valori numerici relativi alla memoria 
dì schermo del caratteri rappresentati* 

Terminata questa operazione* il cursore tornerà’ a lampeggiare all'inizio 
di pagina* e potrete riempire una nuova pagina di schermo. 


R- richiama 

Se desiderate rivedere ciò 1 che avete memorizzato non avete che da premere 
11 HOME C0RSQ3” * la , e W R"* 

Vi apparirà’ di nuovo la domanda "NUMERO PAGINA”. 

Impostando il numero con cui avete codificato la pagina desiderata* 
vedrete, riga per riga, riapparire la vostra paginetta. 

Semplice, vero? 










P - stampa 


Questo comando, fa ai 1 che il PET analizzi lo schermo con lo stesso 
procedimento di "M", ma i dati rilevati* vengono tradotti da CODICE SCHERMO* 
in CODICE ASCII * e spediti alla stampante* che ricopia, perciò 1 , lo 
schermo, riga per riga. 

Ricordate, quindi, ohe per stampare e' necessario richiamare sullo schermo 
la pagina desiderata, prima di premere w P r \ 

Chi volesse potrà 1 * addirittura, modificare il programa in modo da far 
stampare direttamente dalla memoria. Questo potrebbe essere utile per testi 
molto lunghi* ma in questo caso, vi consigliamo di controllare che il testo 
non venga stampato sulla tratteggiatura della carta* Anche in questo caso* 
una volta terminato il lavoro, il cursore tornerai lampeggiare, e potrete 
passare all'operazione successiva. 

- cancella 

E un. semplice comando di utilità'* che permette di cancellare lo schermo. 

S - salva su cassetta 


Poiché 1 questo comando si riferisce alla memoria del PET, 1 1 intestazione 
sparisce. Appaiono al suo posto delie domande: 

- TITOLO TESTO ? (intesta il "file 11 ) 

- FIMO A QUALE PAGINA ? (da pagina 0 fino alla pagina ?) 

Questo vi permette di creare un "file" contenente il testo da voi memoriz¬ 
zato, che potrete poi riutilizzare collocandolo nella posizione di memoria 
che piu 1 vi aggraderà'. 

Il processo e 1 un po’ lungo, dato che il registratore si ferma ogni 3-4 
secondi * 

Abbiamo calcolato un tempo di circa due minuti per pagina. Pero 1 questo 
processo, non necessita di ale un a presenza u ma na, perciò 1 , può 1 venire 
eseguito nei tempi morti* 

o anticipiamo che stiamo studiando un meteco per velocizzare questa 
funzione. 

L - carica da cassetta 

Questo comando, come gia T detto, permette di caricare un "file" che avete 
già 1 creato, collocandolo nel punto della memoria che desiderate. 

Se perciò 1 , ad esempio, voi voleste aggiungere delle pagine a quelle 
memorizzate precedentemente su cassetta, potrete impostare la partenza dei¬ 
la collocazione, dalla pagina 3 * e avrete le pagine 0 , I, 2 libere per le 
vostre aggiunte. 

Al termine del lavoro, potrete registrare di nuovo tutto su cassetta, e 
avrete il vostro testo nell 1 ordine sequenziale desiderato. 

Alì f atto pratico, vi apparirà 1 scritto: 

- TITOLO DEL TESTO ? 

- DA QUALE PAGINA ? (vi permette dì collocare la partenza) 

- FINO A QUALE PAGINA ? (collocazione fine del "file") 



Anche questa funzione risente 
cassetta. 


della limitazione 


temporale dell’uso della 









Ci sembra, a questo punto, di aver terminato la descrizione dell'uso del 
nostro programmino. 

Sperando dì essere stati esaurienti f passiamo all'analisi passo passo del 
programma. 


REMarka 


1000-1010 


1200-1600 


1700 

1800 

1900 

2000-2200 

2300 

2400-3500 

3600-4700 

4900-6100 

6300-6800 

7000-7600 

7900-8300 


8400-8500 


Viene testata la memoria disponibile e, sottratto lo spazio 
necessario per il programma, si computa il numero di pagine 
disponibili♦ 

Stampa 1 T intestazione ed ? eventualmente, il numero della pagina 
richiamata * 

Abilita il lampeggio del cursore durante il run del programma* 
Accetta il carattere da stampare. 

Non permette al cursore di spostarsi quando e' acceso, per 
evitare di lasciare reversato il carattere precedente,. 

Protezioni dell'intestazione (premendo SPACE l'intestazione viene 
riscritta}, 

Testa la presenza del comando "% 11 alla locazione di schermo 
32768, 

Controllo tasti durante il "GOMMANO MODE", 

Ciclo di memorizzazione della pagina nella memoria libera. 

Ciclo di richiamo pagine memorizzate. 

Ciclo di SAVE su cassetta. 

Ciclo di LQAD su cassetta. 

Ciclo di stampa comprendente la formazione dì una stringa di 40 
car. 

Espressione logica Booleana, che traduce il codice di schermo del 
PET, in codice ASCII, 


EDITOR MRX 
1Q0@ Pii— I NT < i FR£< 0) ■- i 000>/920 ? P=0 = M=0 

1100 FRINIRONO DISPONIBILI "FM"PAGINE" J FOR1=1TO2000 : NEXT 
1200 PQKE167>1 ; PRIMI"IT 1 

1300 P0KE21d j 0 ■ P0KE193, 0 : SYS57949 : PRIHT' l X M i -FORI = 11029 : PRIMI" " ; ■ NEXT ; PRIMI 
1400 3FM=0TNENlb00 

1500 P0KE216,0 POKE198,32:$YS57949 PRIMI"PfiG. "P 
1600 FORI-1TO40:PQKE32S07+1,93 NEXT-FRINÌ 
1700 PGKE167,0 
1S00 GETfìif : IFFl#= N "THEN1S00 
1900 IFPEEKC170)=1THEN1300 
2Ù00 PRIMTRt; 1FPEEK<21S»23THENP0KE216,23 
2100 IFPEEK<216?<2AMBPEEKC151)-6THENG0TC1308 
2200 IFPEEK<216 X2RNBPEEK<151> =65THENGGTG1300 
230G IFPEEK<32768>=0THEN2500 
2460 GOTO1700 

2500 POKE216.0 P0KE138. 12'SVS57343 : PRINT"al ATTENDO ORDINI*"! 

2600 POKE32760,32 :FGKE327G9,32 
2700 GETR*: lFRf^ JM, THEN2700 
2360 PORI=0TQ33=P0KE32768+1,32 :nEXT 
2900 IF8f="M"THEN3É00 REM MEMORIZZA 
3600 I Fftf = " R " IHEN4900 : REM RICHIAMA 
3100. IFh*="S"THEN6200:REM SAV£ 

32Q0 lFftf- J, L J, THEN6900:RGM L0AD 
3300 IFB$= 1, F J< THENGOSUB7900: GOTO 1200: REM STAMPA 
3400 IFh#= ji C"THENM=0 : GOTO1200REM CANCELLA 
3500 GOTO2500 









3600 P0KE216,0 :POKE 198,5 SYS57949 PRINT" SMEMORlZZFff" ; 

3700 P0KE2l6,8PGKE19S,21 : SYS57949 ; PftlNT" 

3800 POKE216.0 POKE 193,21 L SVS57949•' INPUT"NUM- PAGINA";P 
3900 PGKE216,0 POKE198,21 SYS57949 FRINÌ" 

4000 IFPCPMTNEN4500 

4100 PDKE216,0 : P0KEi98, 21 : SVS57349 : FRINT"NON ESISTE" 

4200 FORI=1101000■NEXT 

4300 POKE216,0POKEÌ98,2l:SVS57949PRINT" 

4400 GOTO3800 

4500 P0KE2i6,8 1 POKEÌ98,27 : SYS57949 : PRIKT^MEM,PRO."P 
4600 FGRI=@T0919 

4780 POKE3000+ < P#92©>+1> PEEK C 32848+1> NEXT 
4800 1*7=0 : GOTO 1200 

4900 POKE216,0-POKE198,5:SY357949 ; FRINT U 3RICHIRMRS"; 

5000 PQKE216,0:POKE198,21 SYS57943:PRINT 1 " 

5180 P0KE216,0 : P0KE198, 21-SYS57949: INPUT"NUI w f. PRGINR", P 
5200 PGKE216,0 : POKE198,21 :SYS57949-PRINT" 

5300 IFPCPMTHEH5708 

5400 POKE216>0 POKE193,21 SVS57949 PRINT'NON ESISTE'" 

5500 FGRI=1TG1000NEXT 

5600 P0KE216,0^ POKE198,21 :SYS57949:PRINT" M GGTQ5180 

5700 PDKE216,8 POKE 198,27 SVS57949 PRINT H RIC, PPG, "P 
5800 FORI=010919 

5900 P0KE32848+I, PEEK(3008+<P*928) + 1 > :NEXT 
6000 P0KE216,0 : POKE 198,28 : SYS57943 FRI NT 11 
6108 14= i : GOTO 1308 
6208 GOSUB7700 
6300 0PEN1,1,1,1$ 

6400 FORP=0TOK 
6500 FORI=010919 

6600 PRINI#1,PEEK < 3008+ < F#9£8 > +1) 

6708 NEXT NEXT 

6000 CLOSEi:M=0: GOTO1208 

6900 GOSUB7700 = INPUT"DR OLIRLE PAGINA ",N 

7808 0FEN1,1,8,1$ 

7180 FORP=NTGK 

7200 FORI=010919 

7308 INPUT#l,fl 

7400 POKE3080+CP*920>+I,R 

7500 NEXT ; NEXT 

7600 CLOSEI GOTO1280 

7700 INPUT' 1 nKMTlTOLO TESTO ", T$ 

7800 INPUT" «F INO A GUFILE PPG INA" ;K : RETURN 

7980 N=8 : XT$- 14 " : 0PEN4,4 

8000 FORI=327681033767 

8180 GGSUB8400 J XTS-XTf+Xf 

8260 N=N+i=IFN>39THENGOSUB8508■N=8 

8380 NEXT:CL0SE4: RETURN 

3400 X=PEEKC I > : X® ( XfiNDl 27?0R< C XflND64>4f2>0R< < 64-XRMD32 ) ; X$=CHR#<X) : RETURN 

8560 PRINT#4, XT-f ‘ XT#=" " RETURN 


— *H:*~ -- - -—— 


ì'Jota del direttore responsabile: 

Dato il considerevole valore di questo programma e la versatilità 1 di 
espansione fra tutti coloro che invieranno delle modifiche od aggiunte di 
particolare interesse all'EDITOR MA Ut verranno scelti i migliori dieci ai 
quali sara" inviata una cassetta contenente 10 programmi di giochi 
compatibili per vecchie e nuove ROMs. 





ALTA 

RISOLUZIONE 


Roberto Odo&rdi 


Formatazione 
d i 

cabatteri 


Questo programma può' essere considerato quale seguito dell'articolo 
apparso sul Pocket PET numero 0 che trattava dell‘alta risoluzione otte¬ 
nibile con le stampanti 2022/3022 e 4022. 

Il primo risultato del programma e* proprio quello di mostrare sul video 
un reticolo da 7*6 necessario per la formatazione del carattere grafico 
desiderato. 

Introducendo i riferimenti con delle coordinate vengono visualizzate, ac¬ 
cendendosi o spegnendosi* le caselle interessate» 

In caso di input non regolare, verranno visualizzati due asterischi 
(**); se i medesimi due asterischi verranno introdotti ai posto delle 
coordinate vorrà 1 dire che saremo arrivati al termine dell'introduzione. 

Se invece ai sostituiranno detti asterischi con altre coordinate potremo 
nuovamente proseguire con la format-azione del carattere speciale. 

Premendo -RETURH- con i due asterischi si conclude l’introduzione dati* e 
si passa alla scelta del modo di stampare. 

I comandi di stampa sono: 


+ = stampa aggiungendo senza anaare a capo; 

/ = stampa con Line Feed. 

--,-I 


Per terminare l'esecuzione del programma introdurre F anziché 1 le coor¬ 
dinate* ciò' ci permetterà 1 dii ripristinare 1 1 interlinea della stampante 
al valore normale di 24* 


REMarks 


100-160 Intestazione grafica. 
170-240 Stampa del reticolo. 
260-260 Input coordinate, 

270-330 Test verifica carattere: 


coordinata della griglia, 


Il * K rr 


oppure 


"F", Se A$ non e r compreso in questo campo il PET torna al- 
1'input. 

3*10-360 Determina la posizione sullo schermo delle coordinate richieste e 
la varia da acceso in spento e viceversa. 

370-410 Calcola mediante l'istruzione FEEK se ogni cellula del reticolo e' 
accesa o spenta e costruisce la stringa contenente il carat¬ 

tere formatato. 

420-430 Visualizza i numeri dei caratteri corrispondenti ai numeri 
rappresentati nella grìglia. 

440-470 Mostra i due simboli che indicano il tipo di stampa usato: "4 
stampare senza LF „ 11 7" per stampare con LF ed attende che sia 
muto uno dei due tasti. 

480-520 Fase di stampa e ritorno all’inizio del programma, 

530-540 Finale del programma con reset dell'interlìnea dal valore usato 
nel programma (18) al valore standard (24)* 


binari 


per 

pre- 












100 

110 

120 

130 

140 

150 

160 

i?0 

130 

190 

206 

2 IS 

220 

230 

240 

250 

260 

270 

230 

290 

300 

310 

320 

330 

340 

350 

360 

370 

336 

390 

400 

410 

420 

430 

440 

450 

400 

470 

400 

490 

^0(5 

510 

520 

538 

54Ù 


,1 1 I *,<■ -JL- - h - Jr -i" -JL- -A- -4- »JL- -JL- -jL- -if li- -J_- -À --L- il- -i.» -A- J.- Of -J_- -_IL- ilj lL- *A- 

fi )p 3|f?((3p t JfT#)r3p irJrT fff * if 

REM «#ft FORmTRZIONE CfìRRTTERI *** 
REM + 

REM *#* DI ROBERTO 0DO0RDI *** 
RE m ## ## # ## ## # 4^# ## ## ## ## #4s ## É& ## # 

REM #*# POCKET GROUP 31 07 61 **# 
REM 


RRlNT (, nd FORNAIfl2IONE 3022 4022 MCHR 


r f 


HE C D E F " 
1 F0RL-1TG5 : FRINT IJ 


PRINT"U 
PRINT" 

F0RI=1T07 

PRINT I : F0RL-1T06 : PRIHT" 


N. J, ;LL 
■-NEMT- PRINT 1 


I 


: NEXT : PRIMI 1 ' \ 


;fNEXT PRINT"- 
11 ; : NEXT ; PRINT" 


PRIHT 11 V'i ' F0RL=1 T05 - PRINT' 1 —’ 

NEXT 

PR3UT " n <■" ; - FORL-1TG5 ■ F RI NT 

PRI NT " ^PPPPPPPtPPPPPPPPN*-^ " 

input "Olirle coordin. w :.m 

3 FfiT="#*"THEN370 
IFR$="F"THE N530 
IFLE M < FI $ ) 02T HE N330 

IFLEFTSCRf, 1 K ,J R M QRLEFT*<fi#, 1 >> ,J F "THEN338 
IFRlGHTTXFif.« 1X"!“ORRIGHTiTfìS j l)>"7"THEN33© 

GOTO340 

PRINT" "pp PPPP PP Pi PP PPP PII*'* " 0010260 

G*3284S+S0*V0L < RI OHTF CRT ,!)>+< RSC < Ff$) -64>*3 

IpPEEKtG> =32THENPOKEG>225 : P0KEG+1,97 GOTO260 

POKEG,32 :PQKEG+1,32 -GGTO260 

H$= n **■ FORI=01015STEP3 E=0 F=6 

FORI 1 =55i3TO0STEF-S0 

G=PEEK<33492-11+1> 

I FG032THENE=E+21< F > 

F=F-1:NEXT:RT=RT+CHR#CE> NEXT 
PRIHT , 'TTT>PPPP; :F0RI=1TG6 

PRINTR1GHT$C“ "+STRTCR$CCNIM<R#, - NEXT 1 PRINT 

pr i nt 11 ; 

PRI NTTRD< 27 > " 3H*S RPPENP" 

PRINTTRÈC27 > " ’iWd r '3 "CHRTC34 V E LF" 

GETTI 1 ■ IFTÌO M + ,, flNBTfO ,, / ,l TH£N4?0 

0PEN5.. 4,5 0PEN6 ■ 4, $ • 0PEN3,4 PR I NT#€, CHRTC13 ) 

PRINT#5, RT PRINT#3, THBCLL)CHR*C254)CHR* a 41) , 

IFT$=V H THENFRINT#3:LL=U_+Ì 

CL0SE3:CLQSES:CL0SE5 

GOTO170 

GP E Né, 4,6 : PR I NT#6, C-HRT C 24) : CL0SE6 
END 



- HNR - — — — — mY 

Per chi ha 1* 8000 


Se avete già’ provato ad eseguire PRINT CHR$(142), avrete notato che lo 
schermo dell" 8032 si schiaccia e tutto si trasforma in maiuscolo e grafico,, 
Per evitare la noiosa digitazione dei comando si può* eseguire la seguente 
azione che in un colpo solo ottiene il medesimo effetto: 

Premere contemporaneamente i tre tasti -5HIFT- -SHIFT- e 

Per ritornare alla condizione normale non esiste una azione sintetica, ma 
si dovrà 1 eseguirà: PRINT CHR$(14)* 










Elaborato da Paolo Zangrandi con la collaborazione del maestro 

Isidoro Cusberti. 


PDhE 


note 


Valori corretti delle 


note per FET 



Quelli che seguono sono i valori da caricare col comando FOKE 
59^64 per ottenere le scale musicali con un corretto rapporto 
delle altezze» Va pero 1 notato Che: 


1 - il valore caricato con la POKE 59466 determina il timbro del 
suono, ma tale timbro non e 1 costante al variare 
dell T altezza ; tuttavia esistono timbri che sono abbastanza 
costanti da non fornire variazioni significative per 
1'orecchio, 


2 -la terza ottava, data la sensibile variazione in seguito al 
variante anche di una sola unita" del numero, non ha tutti i 
rapporti perfettamente corretti; d'altra parte,nella pratica 
e' raramente necessario utilizzare' anche questa ottava. 


la OTTAVA 


2a OTTAVA 


3a OTTAVA 


1 

w 

SI 

- 

249 

. 2 

- 

DO 

£ 

233 

3 

— 

do 

- 

221 

4 

- 

RE 

£ 

207 

5 

- 

re 

- 

195 

6 

- 

MI 

- 

187 

7 

- 

FA 

= 

176 

8 

- 

fa 

r 

164 

9 

- 

SOL 

= 

156 

10 

- 

sol 

£ 

146 

11 

— 

LA 

= 

138 

12 

— 

la 

= 

130 




13 

— 

SI 

- 

123 

14 

- 

DO 

Z 

n? 

15 

— 

do 

— 

109 

16 

- 

RE 

£ 

104 

17 

■« 

re 

2 

97 

18 

- 

MI 

= 

92 

19 


FA 

— 

87 

20 

- 

fa 

£ 

.81 

21 

• 

SOL 

- 

77 

22 

- 

sol 

- 

72 

23 

- 

LA 

- 

68 

24 

— 

la 

- 

64 


DURATA 



1/64 


1 


1/32 

2 

2 


1/16 

£ 

4 


1 / 8 

£ 

e 


1/ 4 

- 

16 


1/ 2 

- 

32 


ì 

* 

64 


25 

—. 

SI 

- 

61 

26 

- 

DO 

£ 

57 

27 

- 

do 


54 

26 

- 

RE 

- 

51 

29 

- 

re 

- 

48 

30 

- 

MI 

£ 

45 

31 

- 

FA 

- 

42 

32 

- 

fa 

= 

40 

33 

- 

SOL 

» 

38 

34 

- 

sol 

“ 

35 

35 

- 

LA 

£ 

33 

36 

«■ 

la 

s 

31 




















ristrusicns 


Uff FMN] 

di Bruno Brazzoduro (12WBB) 


Il linguaggio Basic (Beginner All-purpose Symbolic Instruction Code), 
che in parole nostrane significa Istruzioni Simboliche Codificate 
Multiuso per Principianti, ovvero (ISCMP). 

Certamente risulta alquanto contorta come definizione contratta, quindi 
lasciamola pure nella versione originale. 

Il BASIC offre, a chi e' addetto piu* o meno ai lavori, diverse e 
svariate possibilità* di personalizzare i propri programmi. 

Sopratutto conoscendone i vari **statements IÉ „ fra i quali l'istruzione 
oggetto del presente sproloquio, di ridurre notevolmente la fatica dì 
cercare modi contorti ed astrusi per fare cose piuttosto semplici. 

distruzione DEF FHx(X) permette di definire a priori in un punto 
qualunque del programma (pero 1 generalmente e T buona norma farlo nelle 
prime linee dopo le eventuali DIM) delle funzioni ad una variabile, 
dove "x" può* essere una qualunque delle 26 lettere dell'alfabeto, si 
hanno quindi a disposizione ben 26 funzioni diverse. 

Le funzioni FW* devono avere, in sede di definizione, un argomento 
fittizio che permette di indicare le modalità* di come verrà* trattata 
la variabile; nel contesto del programma possono avere un argomento 
qualunque, ad esempio un’espressione anche contenente altre funzioni. 

Bisogna pero, per amor di precisione dire che una funzione FNx NON 
può" contenere nel suo argomento la funzione stessa ne f funzioni che la 
utilizzino nella propria definizione. 

11 formato delle definizioni e* il seguente: 


numero riga DEF FNx(argomento)^espressione 


Va' inoltre detto che il BASIC non permette di dare una definizione 
diretta di piu* piu* di una variabile in una funzione. 







Elenchiamo di seguito alcuni esempi: 


} 



La prima istruzione (a) permette di .eseguire ogni volta che lo si 
riterrà* opportuno, X 1 arrotondamento del risultato desiderato a due 
cifre decimali-.. 


200 

INPUT”1.M0 

NUM * = w ; A 

210 

INPUT”2.00 

NUM.=”;S 

220 

0 = A/B 


230 

PRINT B 


240 

B = FNR(B) 


250 

PRIMI B 



Se si assegna il valore dì 1 ad A e 3 a 5, il risultato che si ottiene 
al PRINT della linea 230 sara* "0.33333333”, mentre dopo che la 
variabile e' stata manipolata dalla linea 240, il risultato sara r 
troncato e arrotondato a ”0*33". 

La seconda {b) permette la conversione del formato sessagesimale in 
decimale delle ore : minuti : secondi o gradi : minuti: secondi. 


Nel trattamento delle frazioni di ore, per eseguire eventuali calcoli 
di "tempo x lire”, e r senza dubbio necessario che queste siano 
congruenti. Cosa fare?: laboriose conversioni per troncare la parte 
intera, ricavare i minuti, e guarda caso, questi sono nel formato 
sessagesimale (sessantesimi di ore). Altra fatica per convertire 15 
minuti affinché 1 rapportati al formato centesimale diano come risultato 
0.25, il quale a questo punto può* essere riaggiunto alle ore e quindi 
moltiplicato per le ri svanziche", 

Ebbene, usando la funzione (b) il tutto e' presto fatto in un colpo 
solo : 


-200 INPUT"0RE NEL FORMATO 
510 INPUT 11 COSTO ORARIO"; CO 
220' CT = FND(OM) * CO 
230 FRINIRLIRE =" CT 


Se si assegna il 
ohe la variabile 
Lire 4250. 


valore di 4.15 ad 
e* stata trattata 


OM e 1000 a CO 
dalla funzione 


il risultato CT dopo 
FND(X) sara’ uguale a 


PROVARE PER CREDERE! 
















1 _ francobollo del 

Pocket_Group 

di 

Gloriano Rossi e Luciano Qdoardi 


Già * da quando il numero zero di Pocket PET e 1 
andato in stampa esisteva un certo gruppo di 
persone, da me coordinate che esegue 
prQgramitii t effettua prove e relazioni, 
modifica ed attualizza innumerevoli 
applicazioni * 

Una prova evidente di tutto eio f e" proprio il 
Pocket PET ed anche ì vari programmi che la 
Harden spa distribuisce tramite i propri 
fornitori, 







WAAAA;W 


Luciano, in un momento di pazzia* ha pensato 
di attribuire un marchietto al gruppo* 

Cosi 1 e 1 nato il 11 francobollo del Pocket 
Group 11 , 

Per la mania che lo contraddistingue, Luciano 
si e' divertito ad utilizzare la sua stampante 
Commodore 3022 ed ha realizzato un programma 
che nella sua versione originale era composto 
di una cinquantina di righe, ma per non rubare 
troppo spazio sul Pocket PET ci ho messo le 
mani e., ecco cosa e 1 saltato fuori: 


110 
120 
130 
14S 
150 
160 
170 
ijy 
130 
280 
: n 
228 
£58 
240 
£5:8 
£60 
£70 
£08 
238 
-J0 & 
31® 


RE 11 4 * 44444444#444444 44444444444444 44 44 *44 4 4 4 * 44 * 4 ** 44 * 44 * *** 44*4 4*4 4 * 

REM 4*4*4 FRANCOBOLLO POCKET GROUP 44444 
REM ****4***4**44*4******4*4*******4*4*4*4*44***4*4*444444444444444444 

fìf=CHR#a>-B*- fl S" :C*= W X ,, :Aia>= 1 ’ ”.F0RI=lT0S ’ R$a >=04(1 )+ J1 r\ ' J ■ NEXT 
A*<2>=C» F0RI = ìT09 + " V<1 NE!>m R4<2)=fl$<2>+B$ 

RTC3>=BT FORI-ITO 16 Ftt<3;>=A$C3>+ J, ÌT NEXT h$^=mC3>+C$ 
A*C4>"C»+riIB*<fì*<3),3 J 16>+B$ : A*{5)=B$+Mltt(fì$a} > Zi 17J+RIGHT4CC*,. l> 

Et$<6}=" ,, +(1ID«H4<2^3* 17>+RIGHT$<C4, 1 !-B#= ,,n -C$= K ” 

DIMC$(12> B$- n r" DT= ,, 1" :£T= ,I I " - F4= 11 I" : G4= M L M :I*=" J" :0*=" ,p 

FORI=ÌT01S:C*-C$+M$ H$=Ht+H# L$=L*+04 NEXT 

0T1 - E$+CT +1'T CT<£> =ET+LEFTT<Lf... 16>+Ff C^<3>^E#+L£FT4(Cta> J 15>+B*+F4 
CTÌ4)"EÌ+LEFTÌ<0T^£> ^ 14)+F$+F« 

C*C7>=Gf+H*+I* :C*<6>=C*<2> C*(5>=EJ+LEFT$TC4-;?>, 153 + 14+F* 
c^<3)=m+”a m" c$',:9>=R*+"a a et s ij 'Cfàe?-A*+ M Èi ^sr v 
c$ai>=0j+ M Bi ■ pi a _ v> •o.fa£>=0i+" ’ia 

OPEN 1,4 ■ RRìNT# 1 0FEN6,4 . (5 PRINT#6, CHR$t 10>: POR1 = 1T04 

F'F: I NT# n RI a > ; CHRT< 141 ) ; CS a > NEXT PR I NT#6. CHR$< 3> : PR I NT# 1, TfìB< 3> j C4C8) 
F0RI=eT03:R=AÈS<INTa/£>-I/2>*2^PRlNT#nN#CR+3>;CHR$a41);Cle:4> 

RR.I NT# 1, TREC3> ; C 3K1 +9 > - NEXT : PRINT#6, CHR$ i9> ■ PR 1 NT#1, Rit<3> ;CHR$<141>;Cf<4> 
PRINT#6,CHR$< 13) FORI =4T06■ PRINT#L AKI); OHRf < 141 >; C#<I +1 > 

NEXT PRINT#6>CHRf<£4>:CL03E6:CLOSE1 G0TG269 















































Flussi 



Prima di iniziare a 
quanti e quali' tipi 
unita* disco Commod 


parlare direttamente -dei 
di flussi possono essere 
ore ( 204Q-30JJQ-1J0^0-8050) * 


files relative» vediamo 
scritti e letti sulle 


FLUSSO DI PROGRAMMA (t ut te le vers io ni di BASIC e di POSO 

Contiene tutto il programma oggetto cosi 1 come si trova nel lenita 1 
centrale (2001-3032-4032-8032) al momento della SAVE; il file contiene 
anche i vari puntatori specifici del programma stesso. 


FLUSSO SEQUENZIALE (tutte le versioni di BASIC e di DOS) 

_ ■ ■ - ~ - r s» .— ■ -^ - 1 

Questo tipo di file e' il piu f classico dei flussi trattati in 
qualsiasi elaboratore. 

Un record viene scritto uno dopo l'altro e parimenti un record viene 
le.fcto uno dopo l’altro. 

Tutti i records possono avere una propria lunghezza differente dalI r 
lunghezze degli altri records del medesimo file è non esiste alcun 
identificatore di sistema relativo al singolo record. 

Esiste esclusivamente un separatore (CHR$(13)) P er identificare *a line 
del record e l'eventuale inizio del record successivo. 

FLUSSO RANDQM (o acce s so direttpj 
(DOS. 1 .0/2.x e BASIC 2/3/4) 

La caratteristica principale di un flusso organizzato con il sistema 
RANDOM e 1 quella di poter accedere a qualsiasi record direttamente 
tramite l'uso di una chiave, senza dover essere costretti a leggere 

sequenzialmente il file e quindi testare ogni record fino a trovare 

quello voluto. 

Un flusso organizzato con il sistema RAND0M e 1 costituito in realta* da 
due files. 

Il primo file t quello piu 1 grosso e capiente, contiene tutti i records 
scrìtti sequenzialmente, cioè' uno dopo l'altro. 

Il secondo file e' molto piu* piccolo ed il suo contenuto e' costituito 

dalle chiavi di ogni record del' filé' principale, con in piu 1 le 























coordinate di posizione. Queste coordinate sono espresse in traccia, 
settore e posizione del byte di inizio record. 

In sintesi viene riportato In questo file il numero del blocco ed il 
puntatore ove risiede o inizia il record interessato * Per queste 
ragioni un file organizzato in questa maniera e' chiamato piu* 
propriamente I.S., da Indexed Sequential poiché* i records vengono 
scritti sequenzialmente, ma si può 1 accedere ad essi tramite indice, 

A partire da questo tipo di organizzazione, il singolo record,, o 1 
campi relativi ad una informazione completa, devono essere di una 
lunghezza ben precisa. 

Se noi definissimo un flusso anagrafico organizzato in maniera 1.5. 
dovremo dire innanzitutto quanto e' lunga la chiave e quanto spazio 
occupa 1 1 informazione e quanto grande (numero records stimato} dovrà' 
essere il flusso. 

Il vincolo di lunghezza e* dovuto principalmente alla necessita’ di 
poter eseguire degli update (aggiornamenti) dei file. Infatti se noi, 
ad esempio, non definissimo la lunghezza record potremo esclusivamente 
leggere o scrivere le informazioni, ma non potremo riscrivere un record 
dopo una correzione. In seguito di un update la lunghezza di un record 
potrebbe risultare piu' grande rispetto la versione precedente e 
quindi, al momento della riscrittura, si verificherebbe un 
accavallamento con il record successivo con conseguente perdita di 
questultimo, 


FLUSSO RELATIV E (DOS 2,x e BASIC 4) 

Dopo aver capito o quantomeno aver assimilato i concetti base del 
flusso sequenziale e del flusso 1.3. possiamo passare alla descrizione 
del flusso relative. 

Questo tipo di organizzazione dì un file e' forse la piu 1 Interessante 
rispetto a quelle precedenti in quanto offre maggiori vantaggi rispetto 
a^le organizzazioni sequenziali e indexed, soprattutto in determinati 
tipi di applicazioni* 

La differenza con un sequenziale sta nel fatto di poter accedere ai 
records sia sequenzialmente che in maniera diretta. 

_a differenza con un flusso RANDOM, sta nella mancanza del piccolo file 
delle chiavi e posizioni, nonché 1 per il tipo di scrittura' che viene 
utilizzato, 

Il flusso relative e' un file nel quale ogni record occupa una 
specifica posizione su disco. 

Questo tipo di organizzazione consente all*utilizzatore di poter 
accedere direttamente ad ogni singolo record, senza dover essere 
costretti ad esaminarne altri (sequenziale) oppure senza, dover 
effettuare ricerche preventive in un indice {RANDOM o I.S.), 

Numero Relativo del RECORD. 

L'accesso e la scrittura di oasi singolo record posto in un file del 

tip a relative sono effettuate tramite l’indicazione della posizione 
relativa del record. 

Questa posizione e' calcolata a partire dall'inizio del flusso stesso. 
La posizione relativa di un record prende il nome di "NUMERO RELATIVO"* 
questo numero non e’ un indirizzo di disco, ma e’ un valore intero è 
positivo che viene tradotto dal sistema neil■indirizzo del record che 
e' stato richiesto o che deve essere scritto 0 riscritto. 














Il numero relativo dii un record può 1 essere parte del record stesso, 
oppure la risultante di determinate operazioni eseguite sul record o x 
dei campi che lo compongono* 

Un sistema estremamente facile per determinare il numero relativo di un 
record e 1 quello di far coincidere questo numero con il numero chiave 
del record stesso* 



rappresentazione grafica dell’organizzazione 
di un flusso relative* 


la 


che 


Se ad esempio, dobbiamo memorizzare un certo numero di articoli, il 
codice dell'articolo potrebbe corrispondere al numero relativo* 

Cosi’ l'articolo il cui codice corrisponde al numero 005 occuperà" 
quinta posizione nel file in oggetto* 

Tutto questo ragionamento potrebbe essere valido per una ditta 
possiede, ad esempio* mille articoli e li ha numerati progressivamente 
da 1 a 1000i il flusso da creare sara f costituito da 1000 porzioni di 
disco. 

Generalmente pero' il numero di codice di un articolo ben difficilmente 
parte dal numero 1 e prosegue in avanti e a maggior ragione raramente i 
numeri di codice degli artìcoli sono assegnati sequenzialmente e non 
tutti i numeri vengono assegnati a relativi articoli* 

Avremo ad esempio una ditta che produce 500 articoli i cui codici 
vanno dal numero 0001 al numero 2400, 

Sara' illogico assegnare 2400 porzioni di disco per contenere quegli 
ottocento records, tre volte tanto il necessario* 

Per questo caso, ed altri analoghi, si utilizza una tecnica detta di 
randornizzazione. 


La Tecnica di RANDOMI2ZAZIQNE* 


In pratica non 
randornizzazione* 
Ogni sistema per 
definire tecnica 


si può" dire 


che esiste una 


individuare un numero relativo 
di randomizzazione* . 


unica tecnica di 
al record si può r 


» 

































Una tecnica Ideale, per l'esempio riportato, e 1 quella dì dividere il 
numero di codice per tre. Il valore intero risultante sara r il numero 
relativo di posizione del record nell'ambito del file. 

Ogni tecnica di randomiszazione, pero 1 t genera inequivocabilmente dei 
records sinonimi, vediamone un esempio; 


num.codice ì costante ! risultato ! posizione 

--—--_#- *_1 ____ 


260 

: 3 

Z 

86.6666 

! 

86 

261 

: 3 

w 

87 

t 

87 

262 

: 3 

- 

87,3333 

[ 

87 

268 

: 3 

E 

87* 6666 

] 

8? 

2 6 H 

: 3 

Z 

88 

< 

88 


* 

* 





Che cosa e 1 successo? 

I numeri di codice segnati con l'asterisco occuperebbero il medesimo 
posto nel file, cosa naturalmente impossibile. 

Che cosa fare allora in questi casi? 

Tutte le tecniche che si possono utilizzare in questi frangenti si 
riassumono in un unico termine: 


La Gestione dei SIMONIMI. 

Il sistema piu 1 utilizzato in programmazione e r quell 
il file relative con uno spazio di circa il 15% maggi 
(nei nostro caso 800 x 1,15 = 920, arrotondato per ec 
si definisce questa zona aggiuntiva quale "polmone" d 
records sinonimi (da SOI a 999)- 


o di dimensionare 
ore del necessario 
cesso 999); quindi 
i riserva per i 



(g 11 migliore metodo per la gestione dei 
sinonimi e T quello di riservare una certa zona 
del flusso. 


Numeri relativi di record 

Record 

sinonimi 

da 0 a 4S99 

ù $999 

sodo 

S9 99 


Se dobbiamo scrivere il record con codice 262 e ci troviamo la 
posizione 87 già 1 occupata dall 1 articolo 261* dovremo riscrivere il 
record 87 con un campo in piu* che definirà* la nuova chiave di 
collegamento (maggiore di 800). 


















In fase di lettura si dovrà 1 inevitabilmente testare se il record posto 
nella posizione calcolata sia effettivamente quello voluto. 

In caso contrario si va ad Individuare la chiave di collegamento che ci 
porterà’ in una nuova posizione del flusso* 



Il numero relativo "di aggancio" del record 
sinonimo, viene trascritto in Coda al record 
di origine e la catena dì reconds sinonimi 
può f essere costruita nella stessa maniera 
degli esempi precedenti. Questo tipo di 
soluzione risulta* in pratica, molto piu T 
vantaggiosa* 


Per certi tipi di applicazione, pero’, la zona 
risultare insufficente nonostante la valida ca 
Un caso tipico con questo problema e' quello d 
relativi numeri telefonici. 

Il tipo di chiave che sì vuole mantenere e 1 qu 
Potrebbe verificarsi che dopo la traduzione de 
si abbiano dei records sinonimi in numero s 
alle previsioni* 


dei sinonimi potrebbe 
pienza del file. 

1 una gestione di nomi e 

elio relativo al nome* 

1 nome in numero relativo 
tatistìeamente superiore 




Posizioni 

non 

occupate 

X 




a 


B 

C 


D 


E 


3 


i 

2 

3 

A 

S 

6 

7 

a 

9 


Esempio 

records 

grafico 
sininimi. 

di 

flusso relative senza 


Si scrivono allora 1 records nelle rispettive posizioni calcolate, fino 
a quando non si trovi il posto occupato. 














A £ 

Al 

3 

C 


D 


E 


3 


-ì 

2 

3 

i 

5 

6 

7 

e 

9 

Posizione di 

origine 






Il medesimo flusso, organizzato in maniera 
relative, dopo aver memorizzato un record 
sinonimo di A* 1 1 A1. 

































































Quando ciò’ avviene si ricerca la posizione libera piu 1 vicina, si 
esegue la registrazione» In fine si va a scrivere il numero dì aggancio 
in coda al record precedente, il eapo-catena. 



Il record A contiene 
In posi alone del 
s i no n imo A1 

Ecco, sempre lo stesso 


Il sinonimo Al contiene 
la posizione del 
sinonimo A2 _ 

flusso, dopo aver 


inserito un nuovo sinonimo di A, il record A2. 


Utilizzando questo sistema di gestione dei sinonimi, può’ accadere che 
un record debba occupare una posizione (primaria) occupata pero 1 da un 
elemento di una catena di sinonimi» 

Per ovviare a questo incoveniente si va a ricercare l'ultimo elemento 
delia catena "usurpante" e ai registra il "malcapitato" nella posizione 
libera piu 1 vicina riportando sempre il numero relativo nel record 
precedente. Avremo trattato il nuovo record allo stesso pari di un 
record sinonimo della catena. 



BREVE CONCLUSIONE 

L'uso dei flussi relative visti in questa luce e r da considerarsi 
terreno valido per i soli programmatori esperti, senza con questo 
sminuire o demoralizzare gli iniziati. Con un po' di esperienza e 
numerose prove precedute da una analisi approffondita e 1 possibile 
eseguire una gestione sofisticata di un file relative. 

-*H:+i--+ H*-+ Hìf-+ H +- 
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La Barca Laboratorio 


Mentre voi legwte «tueste roche righe i 1 
Progetto "La Barca Laboratorio" 

Senzaltre in alto mare. 


I t termine -in alto mare- non sta' ad 
indicare che ancora nulla e' stato fatto* 
ma arì^i che tutto i ] progetto e ' Proprio 
nella fase pìu' interessante dello 
svo lcimento* 


I due PET/CPM* completi ognuno di 
unita disco e stampante* aiuteranno 
i navig at ori in innumerevo1i occa¬ 
sioni* ma soprattutto per lo svi¬ 
luppo del programma scientitico che 
toccherà" Principalmente i seguenti 
punti : 


f*er preparare sieste interessante 
progetto tanno parte de l gruppo 
organizzatore* alcuni medici e psicologi* 
un tisico* un biochimico* un biologo* un 
aeoloso* un ingegnere elettronico ed un 
oceanografo. 

La barca* che e' uno sIoqp in lega 
leggera* e 1 " un progetto de Ho studio 
Gi or getti & flagri ri ed ospita al suo 
interno due Piccoli laboratori e due 
computer- Commodore offerti dalla 
Kar-den st>a. 


R i ce rche su 11 uomo ■ 
Ricerca biologica 
Turni di lavoro 
Sonno 


Comportamento onirico 
Din amiche cerniror t eme nt ali 
Aspetti dietetici e nutrì 

ziona li 

- Rie arche oceanogr afiche : 


Temperatura 

Umidita"' 

Pressione 

Vento 

R ad i az i or.e so 1 are 
Studio generale sul moto ondoso 
Studio genera le de II ' interf ac¬ 
cia aria-mare 

Studio del movimento marino 
Studio su l V i n^u i nam eri to 


3 - Ricerche tecnologiche 

Analisi * strutturale delle 
imbarcazioni 

4 - Espe r1me nti p r e l i m inari e terra 

ed in mare. 


Esperimenti con 
medico. 

ì 1 

laboratorio 

E s rer i m ent i con 
oceanografieo 

i 1 

laboratorio 



.&2L «film S p.A. - 26046 SOSPIRO (CREMONA* ITALIA 












































Tutti i dati torniti dalle so+is- 
ti cat e apparecchiatur e scientifiche 
e non che troiano posto su 1 la bar- 
laboratorio, sono poi analizzate 
dal 3032 che fornira' utilissimi 
elaborati a stampe statistiche, 

Fra le varie app1icazioni del RE T 
sul monoalbero ci sera' quella di 
elaborare i dati relativi all'at¬ 
ticità' onirica in maniera da calco- 
lare un giusto rapporto walia-son- 
no al fine di ottenere un perfetto 
e-au i 1 i br i o ps i co-fi s i co . 

ù i e. ne 1 p recede nte Sa Ione Nautico di 
Genova <18-27 ottobre 1380) il com¬ 
puter Commedore e' stato utilizzato 
per- f or n i re sp i e ss az ì o n i sull" 1 at¬ 


tività de k| La Barca Laboratorio 1 e 
del suo programma. 

FeI termine della regata, il PET, 

verrà utilizzato ancora per eia- 

ber are *iuei dati che durante la 
navigazione non e r Possitite analiz- 
z are. 

Gues to _ -s pò sa l i z i o- UOMO- MRRE-SCI EN- 
ZR e L-ÙNPUTER sena"' seguito da tut - * 
ti gli organi di stampa specia¬ 

lizzata e non, nonché' dalle tre re¬ 
ti televisive nazionali e dalle 

emittenti private. 

Un gualche cosa di grosso, dunque, 
cori il nostro "'piccoIo-p otente"' F'ET. 



TECHNICAL DATA: 
Qverall length 19.41 m 
Waterline length 15.70 m 
Màx*Wldth 5.16 m 

Displacement 20.50 t 
4 7.40 rn 

ì 24.17 m 

LPG ifJOm 
P 22.50 m 

E 6„&5 m 

RSAT 197.68 m* 



----- 


Una verità': 

L'elaboratore e' incredibilmente veloce, preciso e ... stupido. 
L'uomo e "' s tr-aor ■ dinari ani ente len to, i unr ec i so e * » « cr eat i vo. 
L'unione dei due costituisce una forza incaico labi le. 


<Leo Cherne) 













































ì>&Gin 



> ©j 



Sul numero scorso di POCKET PET abbiamo riportato la pagina zero della 
memoria del PET-CBM con BASIC versione 3* 

In questo numero riportaiamo quelle rimanenti pagine che hanno un 
particolare interesse per chi vuole utilizzare il linguaggio macchina 
per le sue elaborazioni* 

Una prima parte comprenda quelle pagine di memoria bassa che il 
Microprocessore 6502 utilizza per funzioni "secondarie" t quali ad 
esempio aree di buffers od altro. 

Queste pagine sono esattamente la 1, la 2 e la 3- 

In particolare e + da notare i due bufferà delle tape cassette di cui 
il secondo normalmente viene utilizzato per routinette in linguaggio 
Macchina dato che questo buffer t generalmente non viene utilizzato- 
Veniamo ora alle seguenti pagine di memoria. 

Possiamo notare che le pagine che vanno dalla 4 alla 126 sono proprio 
quelle che si utilizzano generalmente per i programmi BASIC. 

Ciò' che noi vediamo su video e' compreso fra le pagine 129 e 144* in 


F sts» i I 1 — 


*- - ——-*—-——-— 

! R 0 M s 1 1 i valore 

! nuove ! vecchie F nuove i vecchi 

* 256-su" t 256-su" ! 32 1 32 

i 1 i I 

* \ ! i 

t f i 1 

i p \ 1 

Fidi 

Ì 51 ! 51l-*FÌua 44 ! & 


> 


-#---# 

! Descrizi one ] 

d F 

- -- * 


1 Area di lavoro lettura nastro (tino a 
1 511) e memorie, per conversi one 
1 256-313 per correzione errori lettura 
1 nastro <&2 bytes) 

! 256-266 conversione da, binario-flSOII 
i Cil b*fe*> 

! Stock ■- ■* 1 v J " fino a £56 > 



e?- 3 — -:;5 1£"10£3> 

—#*-—--- * --- 

semplice valore f 
nuove ! vecchief 


Desor1z1one 


+-— 

► 512-592 ! 

—--*- 

ì 


■i- 

1 

——------* 

!' buffer ner ri uà input BASIC-80 byte 5 ! 

! 1 

f 

12537 

f 

1 512-513 

0200-0201 

contatore di proar.! 

i 1 

1 

58 

f 

1 514 

0232 

status di Processo ? 

i ! 

1 

e 

1 

1 515 

0283 

accLimu latore ! 

! ! 


171 

t 

! 516 

G204 

indice X 1 

1 ! 


8 

F 

i 51” 

0205 

indice V \ 

1 | 

\ 

8 

j 

F 513 

6206 

puntatore staci: \ 

1 1 

i 

15104 

1 

F 519-528 

020■—0200 

IRQ modi f i c ■ utente ! 


! 593-662 

! 

! 503-612 

j 

i 613-622 

i 

1 633 

! 634-325 
! 326-1017 
1 IBI 8-1019 
I 

! 1028-1623 
*- 


4 

255 

28 

28 

173 

59383 

195 


\ 

ì 

ì 

\ 

! 

i 

i 

i 

1 

i 

j 

i 

# 


delle periferiche 
arerti 

i secondàri dei 


f Tegola dei numeri lodici dei files 
r aderti 

f Tago la dei numeri 
I relative ài fi les 
F To.g 0 la des li indirlz 

1 files ararti \ 

1 Buffer della tastiera 06' bytes) ì 

Buffer del tare cassette 1 -132 fcytes ! 
Buffer de l. tare cassette 2 -192 bytes ! 
! Vettore per i l monitor in lisciaselo \ 

} macchina 1 

1 Sdazio rer utilità/ - non usato 1 

























particolare le prime quattro pagine costituiscono l 1 immagine vera e 
propria, mentre le seguenti vengono utilizzate dal sistema per la 
gestione dello schermo* 

Se apriamo il PET* possiamo notare che la piaatra dei componenti 
possiede tre posizioni per circuiti integrati grossi, inutilizzati. 
Questi spazi possono essere utilizzati per espansioni ROM* infatti la 
trasformazione da BASIC 3.0 a BASIC 4.0 prevede prlprio di occupare 
'una di queste tre zone libere* 

Un altro utilizzo dell T espansione ROM potrà’ essere quella dell’uso 
del VisiCalc, che prevede proprio l’utilizzo di alcune routines site 
in quelle locazioni di memoria. 

Per finire, riportiamo., le pagine che vanno dalla 193 alla 232 , che 
contengono gii indirizzi dei puntatori delle routines del BASIC* 
Sarebbe stato inutile ripetere i vari indirizzi del BASIC e quindi 
terminano qui le pagine di memoria del PET-CBM con BASIC versione 3-6- 

Sui prossimo numero riporteremo butte le pagine dei PET-CBM con BASIC 
4.0, cioè 1 i PET 4032 e 8032. 


Pasini -4 ~ 1^J3 — < 1 0 

R 0 K s 


! nuove 

$— - 

*1024-32767 


Macchie 


semplice valore 1 


nuove 


vecchie? 


0 


I 

i 

F 

1 

j 

f 

f 

| 


1 

i 

i 

l 

! 


Descrizione 


Rrea programmi utente ed espansione 
memoria RAM 

4K PET : 1024-4635 0400-0FFF 

Area per programmi, utente 

4096-32767 1060-7FFF 

Espansione RAM 

8 K PET : 1024-8191 0400-1FFF 

Area per programmi utente 

3132-32767 2000-7FFF 

Espansione RAM 
16K PET ■1624-16383 6400-3FFF 
Area, per- programmi utente 

16384-32767 4S30-7FFF 


* 

i 

3 

* 



Espansione RAM 
32R PET : 1024-32767 
Area per programmi 


9400-7FFF 

utente 


1 ’— 1 -44 — < 3276S —3iS0É3 ^ 

*--#—-—- k —— ----——-——---4 

R 0 fi s ? semplice valore ! Descrizione 

nuove - F vecchie ? nuove F vecchie! ; 

*32768-36363F usuale F 32 ! 12 ! RAM VIDEO ! 

j i i i j 32768-33767 visua lizzasiohe memorie 1 

\ i i ! f < 1060 hytes) F 

*—— -#---*--—-----—- 


P 1 x ne- 1 4!5 — 1 92 — (368fc'4 — 49151 J 

#---——-————™*—---—-#-——---—---$ 

! R 0 M 5 ? semplice valore f Descrizione 

! nuove \ vecchie ! nuove ì vecchieF 

*36364-49151! uguale * 144 \ 6 ? Espansione ROM 

*-■—#-*--*--*- - -—*-------“* 





























Pine 

R 0 il s 
! nuove 1 ! 

$—,—---j| é_ 

'49152-49153! 

■49154-43155! 

149156-49157! 

! 49158-49153! 
149160-49161! 
149162-49163! 

! 49184-49165! 

! 43166-49167! 

! 49168-49163! 

! 43170-43171 ! 
[43172-43173! 
!49l74-49175' 
349176-49177! 

! 43178-43173! 

! 49180-49131 ! 

! 43182-49183 ! 
149184-43135! 

! 49136-49187 ! 

! 43188-43189 ! 

! 49130-49131f 
149132-49133! 

!49134-43135! 

! 49136-49197 1 
! 43138-49139! 

! 49200-49201 ! 
149202-49203! 

! 43204-49205! 

! 43206-49207 ! 

■4928S-49209! 

! 43210-43211 ! 

! 43212-49213 1 
! 43214-49215! 

P 49216-49217 ! 

P49213-49219! 
f49220-49221! 

! 49222-43223! 

! 49224-43225! 

! 49226-43227P 
! 49228-49229! 

! 49230-49231 ! 
149232-43233! 

5 49234-49235 ! 

! 49236-49237 ! 

! 49238-49239! 

! 43240-49241 ! 
149242-43243! 

! 49244-49245 1 
! 49246-43247 ! 
'43248-49249! 

P49250-49251 ! 
S49252-43253! 

! 49254-49255! 

! 49256-49257! 

! 49258-43259! 

! 43260-49261! 

! 49262-49263! 

P49264-49265! 

! 49266-49267P 
! 49268-43237! 
i r 

! 49238-49553! 

! 43554-49833! 

*-.- 




133 — 232 — < 43152 - 59391 > 




vecchi e- 

ser/iio lice 
nuove ! 

valore ! 
vecchie ! 


Descrizione 

f 

r 

uguale- 

51008 

i 

50973 

r 

Puntatore 

_r- 

1 a EH® <*) 

F 

uguale 

5077É 

i 

5076S 

j 

Puntatore 

« 

1 a POR 

ì 

uguale 

C-T- 

•JsL 

I 

52277 

j 

Puntatore 

— 

1 a NEXT 

! 

uguale 

51199 

; 

51133 

! 

Puntatore 

- 

1 a DATA 

3 

uguale 

51878 

I 

51963 

p 

Puntatore 

— 

1 a INPUT# 

i 

uguale 

51304 

j 

51935 

p 

Puntateli' e 

— 

1 a INPUT 

ì 

uguale 

53038 

5 

53104 

i 

Puntatore 

-> 

1 a DIM 

\ 

uguale 

51974 


52003 

f 

Puntatore 

— 

1 a READ 

\ 

uguale 

51372 

i 

51356 

i 

Puntatore 

— 

■ a LET 

3 

ugua le 

51116 

I 

51180 

i 

Puntatore 

— 

1 a GOTO 

I 

uguale 

51076 

! 

51060 

p 

Puntatore 

— 

1 a RUM 

! 

usuale 

51247 

3 

512:31 

i 

Puntatore 

“ 

1 a IF 

! 

ugua le 

50931 

i 

50956 

p 

Puntatore 

- 

1 a GESTORE 

1 

usuale 

51087 

s 

51071 

p 

Puntatore 

- 

1 a GOSUB 

F 

ugua te 

51161 

i 

51145 

i 

Puntatore 

— 

1 a RETURN 


ugua te 

51266 

p 

51250 

! 

Puntatore 

- 

1 a REM 

! 

usua le 

51006 

i 

50971 

f 

Puntatore 

— 

1 a STOP 

\ 

uguale 

51282 

F 

51266 

! 

Puntatore 

— 

i a. OH 

3 

uguale 

55855 

f 

55041 

1 

Puntatore 

— 

1 a UfìlT 

3 

uguale 

65432 

i 

65492 

t 

Puntatore 

— 

1 a LORD 

3 

uguale 

65495 

f 

65495 

i 

Puntatore 

- 

1 a SRVE 

1 

uguale 

65498 

r 

65493 

p 

Puntatore 

— 

1 a VERIFV 

ì 

uguale 

53900 

f 

533U8 

j 

Puntatore 

— 

1 a. BEF 

ì 

uguale 

55046 

f 

55632 

i 

Puntatore 

— 

1 a POKE 

3 

uguale 

51594 

! 

51582 

3 

Puntatore 

- 

1 a PRIMI# 

t 

uguale 

51626 

ì 

51614 

3 

Puntatore 

— 

1 a PRIMI 

| 

usua le 

51050 

\ 

51012 

j 

Puntatore 

- 

1 a CONT 

[ 

ugua le 

50612 

\ 

50599 

r 

Puntatore 

“ 

1 a LIST 

! 

uguale 

56550 

i 

51855 

r 

Puntatore 

— 

I a CLP 

! 

usuale 

51600 

i 

51583 

i 

Puntatore 

— 

l a CMD 

F 

uguale 

65561 

i 

65501 

p 

Puntatore 

- 

1 a 8VS 


uguale 

65471 

j 

65471 

| 

Puntatore 

- 

1 a OPEN 

! 

uguale 

65474 

1 

65474 

r 

Puntatore 

— 

1 a CLGSE 

* 

uguale 

51836 

1 

51870 

i 

Puntatore 

— 

1 a GEI 

i 

usuale 

5S522 

! 

53512 

; 

Puntatore 

— 

1 a NEW 

! 

uguale 

56133 

! 

56675 

! 

Puntatore 

— 

S&N <**> 

3 

uguale 

56280 

[ 

56222 

r 

Puntatore 

— 

INI 

1 

uguale 

56164 

\ 

56186 

j 

Puntatore 

- 

flBS 

! 

uguale 

0 

i 

0 


Puntatore 

- 

1 a Puntatore USR 

3 

uguale 

53349 

ì 

53360 

! 

Puntatore 

— 

FRE 

1 

uguale 

JOOOd 

\ 

53393 

! 

Puntatore 

— 

POS 

P 

uguale 

56926 

i 

56368 

i 

Puntatore 

- 

SQR 

1 

uguale 

57215 

! 

57157 

i 

Puntatore 

— 

PHD 

! 

uguale 

55542 

! 

55487 

j 

Puntatore 

- 

LOG 

i 

uguale 

57050 

i 

56992 

L 

Puntatore 

— 

EXF 

f 

uguale 

57304 

■ 

57246 

s 

Puntatore 

- 

003 

r 

uguale 

57311 

{ 

57253 

p 

Puntatore 

- 

SIN 

f 

ugua le 

57384 

! 

57.326 

1 

Puntatore 

— 

TAH 


usua le 

57484 

; 

57416 

p 

Puntatore 

— 

ATM 

i 

uguale 

55016 

p 

55814 

f 

Puntatore 

- 

PEEK 

i 

uguale 

54870 

P 

54868 

t 

Puntatore 

- 

LEH 

1 

uguale 

54079 

p 

54089 

1 

Puntatore 

- 

8 TRT 

j 

uguale 

54919 

! 

54917 

i 

Puntatore 

- 

VAL 

i 

usuale 

54885 

p 

54883 

i 

Puntatore 

■5 

ASG 

i 

uì!U 5 le 

54726 

p 

54724 

1 

Puntatore 

a 

CHR* 

ì 

uguale 

54746 

! 

54744 

i 

Puntatore 


LEFTT 

! 

uguale 

54790 

F 

54738 

! 

Puntatore 

a 

RIGHTT 

3 

uguale 

54801 

i 

54799 

i 

Puntatore 

a 

MID4 

3 

E 

! 

! 

! 

\ 

\ 

\ 

! 

#■ 


j 

3 

i 

1 

M- 

Gerarchia ed indirizzi di azione 
Per operatori 

Tavola delle raro le chiave BASIC 
Messaggi cT errore BASIC 

! 

F 

1 

F 

-# 












Nstsrsiss 


Prima di parlare del programma CROSS BEFERENCE, voglio spiegare, per 
chi non io sapesse, che cosa e' e a cosa serve una lista tipo quella 
generata dal programma in oggetto. 


Sui grossi elaboratori* dove si utilizzano linguaggi piu' evoluti tipo 
ad esempio il COBOL* quando si ir.torduce un nuovo programma per una 
determinata elaborazione* e' necessario eseguire in un primo tempo una 
compilazione e quindi un linker. 

Durante la fase di compilazione il programma sorgente viene analizzato 
completamente al fine di individuare eventuali errori dì sintassi o di 
incongruenza ; quindi se tutto va bene,, il compilatore, provvede a 
tradurre il programma in un linguaggio praticamente vicino al 
linguaggio macchina. 

Il linker alfine provvede a sistemare questo gruppo di istruzioni in 
una libreria oggetto. 


Fra i vari options che il compilatore offre al programmatore ce ne 1 
-di particolare interesse. Questo option e' costituito proprio da 
mappa dove vengono in una prima parte elencate tutte le variabili 
le relative locazioni dove esse vengono trattate, ed in una seconda 
ultima parte le Labels (etichette) e le relative posizioni dove 
vengono richiamate. 


uno 

una 

con 

ed 

esse 


In un programma particolarmente breve l'uso del CROSS REFERENCE risulta 
pressoché ' inutile, in quanto tutto e’ sottocchio e con una unica 
visuale si ha la situazione generale del programma in esame. 

La faccenda diventa un po' '"acida 1 ' quando questo programma incomincia 
ad avere delle dimensioni un po' piu' grandi. Una variabile sì trova 
qui, poi nell'altro foglio, poi ancora nell'ultima pagina, ma ce rie era 
una anche da un'altra parte!, quindi segna qui, segna di la* e... dopo 
un po’ e' un caos tale che non si capisce piu T niente. 

Con il risultato del CROSS REFERENCE tutto diventa piu' semplice: si va 
a vedere la variabile e quindi, da quella mappa, si arriva direttamente 
nelle posizioni interessate senza dover diventare, si puo T ben dire, 
matti * 













Oramai lo sanno tutti, il PET/CBM utilizza un interprete BASIC e non un 
compilatore* Questo fatto ci permetto di evitare la noiosa attesa 
dell esecuzione della compilazione, nonche 1 di avere sempre sottomano 
il programma sorgente/oggetto per un qualsiasi update od altra 
consultazione. 

Tutto ciò' e 1 a discapito pero’ della funzione che e 1 stata descritta 
fino ad ora* 

Per ovviare a questo fatto e 1 stato studiato un programma apposito che 
legge su disco le istruzioni del programma da esaminare ed individua 
quelle informazioni necessarie per completare la REFERENCE MAP. 

Il programma CROSS REFERENCE e T stato realizzato in un primo tempo in 
una forma un po' scialba. Io ho provveduto a migliorarlo e modificarlo 
al fine di renderlo versatile ed utilizzatile nel migliore dei modi. 

L T ultima versione, quella che vi propongo, vi permette di accedere a 
qualsiasi file/programma, scritto su disco, ed ottenerne sla una mappa 
per variabili che una mappa per righe. 

Non esistono limitazioni nel 1’utilizzo del CROSS REFERENCE, ne' per la 

versione di BASIC del vostro PET ne f tantomeno dell’unita' disco 
utilizzata. 

CROSS REFERENCE gira quindi aia sulla serie 2001 che sulla.serie 3000, 
nonché * sulla serie 4000 e 8000. Allora qualsiasi sia la configurazione 
del vostro sistema si potrà 1 utilizzare questo programma. 

Per chi possedesse il PBT/CBM 6032, consiglio di modificare la riga 770 
nel modo seguente: 


770 C=3:Z=12;IF Z$-"$ rr THEN C = 4 


Si noterà’ che la modifica riguarda essenzialmente la variabile -Z-; - il 
contenuto di questa variabile influenza il numero relativo delle righe 
riportate sulla medesima lìnea. 11 computer modello CBM @032, si sa, ha 
80 colónne di video, come d’altronde 30 colonne sono utilizzate sulla 
stampante 3022 o 4022, quindi e 1 opportuno unificare il valore di "a 
capo linea" al fine di non occupare troppo spazio sullo schermo* 


COME SI USA IL CROSS REFERENCE? 

Si e r appena terminato un programma che chiameremo PRG-X e si vuole 
ottenerne sia la mappa delle variabili che quella delle linee. 

Il primo passo da eseguire aara quello di salvare con una normale SAVE 
il FRG-X su dischetto * Il quale sarà’ situato nel drive zero. 

Si carica a queso punto il programma CROSS REFERENCE e si impartisce 
il comando RUN. 

Il CROSS REFERENCE chiederà’ subito se si vuole una mappa per linee q 
per variabili; sara 1 sufficente per dare questa risposta battere la 
lettera -L- oppure la lettera “V**. 








La seconda domanda che il CROSS vi rivolgerà 1 aara 1 inerente al nome 
del programma da esaminare, e quindi voi batterete: "PRG-X 11 . 

A questo punto il CROSS andrà' a ricercare sul disco inserito nel drive 
zero il programma richiesto e, se lo trova, incomincera f ad esaminarlo 
linea per linea fino alla fine* 

Se il programma PRG-X risultasse eccessivamente grosso e 1 consigliabile 
modificare le dimensioni delle tabelle site in riga 250, in particolare 
quelle relative ad X$ e a C* La riga 250 potrà', limitatamente alla 
memoria del vostro PET, essere modificata in questo modo: 


250 DIM l5) f B$(3),X*(80G) f C(400) 


Il risultato finale potrà 1 essere visualizzato sul video 
(C-3 sulla riga 770) oppure stampato su carta tramite la stampante di 
sistema (C = 4 oppure C=5 sempre nella riga 770)* 

Per ohi possedesse una stampante tipo LINA e' necessario modificare il 
numero di apertura dei file di stampa ohe nel CROSS corrisponde a 2. 
Modificare quindi la OPEN 2,C di riga 780 in OPEN 130 p C ;la CL0SE 2 di 
riga 900 in CL0SE 130 ed infine tutte le PfìINT.,2 in PRINT.130 (righe 
780,790,&00 T Sto,860,S80,890 e 900). 


il listato del programma CROSS REFERENCE e 1 Seguito dalle due mappe, 
una per variabili e l’altra per linee, del CROSS REFERENCE stesso. 


Noterete da soli, esaminando attentamente le due mappe, la validità' e 
l'utilità 1 di questo programma e... buone "mappate 11 !! 


i_:os:s Re+e-renoe 


100 
110 
120 
11:0 
140 
150 
160 
170 
230 
240 
250 
260 
270 
220 
250 
1-0 0 
510 
320 
330 
340 


370 



REM**# 

REM*** 

REM*** 

REM*** 

REM*** 


CROSS 

REFERENCE 


** 

m 

** 


** 


POCKET 
GLORIANO ROSSI 


GROUP 

I2KH 


*#* 

### 

*#* 

*** 

*** 


REM _ _ M 

MB*= M VAR. ! LINER DEL PROGRAMMA " 

DIM 15).X$£E80>C0255> 

PRINT"± ROSS 'REFERE NC EW« M 
G$=CHR$(34> = S$=" 11 : BI=a>=Q$ ; DÌt3> ; CHR#C5S> 

PRINT''«_13TA ^BfìRIAElLI A eLSINEE VlWT ;■ INPIJTZ* 

I FZt- " V 11 ÙRZ f = l! L 11 T NEH 310 
PRINTATTI" : GOTC2É0 
C2=5: IF2#="L“THENC2=6 

F0RJ-1T0255:C<J>=4 : HEXTJ■P0RJ=48TO57 : C(J)-6■HEXTJ 

1 FC2=5THENFGRJ=S5TQ90 - C ( J') =5 ■ HEKTJ : FQRJ=36TG38 - C< J>-7 : NEXTJ ; C < 40>=3 
C(34>=I : CC143>*2 C<131>=3 

PRIMI "flUDME PROGRAMMA «nif 1 ; : INPUTPf ■ IFFP- N *"THENPR INT ft mT ; UOTO350 

ifpì =■"*" thehrr i NT"rm" : 0010350 

QPENl*£u3, “0 ; "+R*+ ,i ,P,R" 

PRINT ll tìflDPENliS,3,"B*a)"0 1, P*‘ 1 ,P,R M E:fa) i, fiJtì" 
ùET#l -Af .■ E‘f ■ 1FA3C<B*^04THENCLDSEI : STOP' 









400 IFB=8GOTG460 

410 FRINTL$j-K=XF 0RJ=BT01STEP-I FRINT" ";Fi*<J>j:X*=A$<J> 

428 X*=X*+Lf 

430 IFX$<K>>XfTHEMX$CK+J>=>i$<i<) : K=K-1 : GGTO430 

440 X*<K+J>=X*:NEXTJ:X=»X+B: FRINÌ:B=0 

450 REM NLtQVft LI NEH E TEST DI FINE 

46@ GET# 1,1=1$., m ■ IFLEMR*)+LENCE* >=00010760 

470 REM GET NUMERO EI LINEH 

430 GEI#1, Rf :L=LEN< H$>:IFL-1THENL=RSC<B*> 

490 GET#1,fl#:fi-LENC>:iFfì=1Thf£Nfi=flSC<Bt> 

500 C-C2 : Cl ——1 L=R#256+LL$=STR*<L> • IFLENXL#>G6THENL*=LEFT$<S$.. 6H_EHtL*> )+L$ 

510 REM GET BRSIC STUFF 

520 GET#l,R$:fi=LEH<R$>: 1Ffì=lTHENR=RSC> 

538 C9*=CCR>;IFC9>CÌGOTG610 

548 lFC2=ÉflNULEN<ri*X5TlHENM*= 0 "+M$GGTO540l 

550 K=0 : IFB=0GOT0590 

560 FGRJ=ITOB : IFRf(J)=M$GOTO600 

576 IFR$CJ)<ri$TN€NNEXTJ-K“B = 0010596 

580 FORK-BTOJSTEP-1 =R*<K+Ì>=A$<K>=NEXTK 

590 B=B+1=R*<K+l>=Mt 

600 C=C2 Cl=-t ri*=” H 

61S IFC2-5GQTG650 

620 IFh=137GRB=13SGRFI-141 QRR= I67THEN06■G0T07S8 
630 IFR=44ORR= r 32GOTO780 
648 IFC906THEMC=9 : GOTO766 
650 IFC9*=CTHENC--1 Cl=4 
660 IFO6GOTO780 

670 lFC<0flNBC9>ClRNBC9>6THENCi=C9 G0T0696 
680 IFC2=5THENIFLEN':M$»2GRC>0GQTQ?06 
690 M$=N:f+fi$ 

780 GN C9+1GG104 0G, 716 w 10 .■ 716 : G DT 05 20 
710 £$=E$<C9> = C$= ,J,r 
72S GET#Ì,R$ = IFR$= fl "GÙT0400 

738 IFR*=E$GQTO520 
748 I FHfOQfGOT0726 
750 Ht=h$ ■ B$=C$ ■ ul=RI ■ GUI0720 
760 CL0SE1 : INPUT"SU STflMPRNTE SIMI" ; Z% 

770 C-3■Z-6 : IF2$ =,, S J, THENC=4: 2=12 
?m 0PÉN2, L - FRIHTttS -PR 1 NT#2, jl 71" 

796 PRINT#2j CBR#< 1>"C ROSS REFE RENE E" 

800 PRlNT#2=PRtNT#2,“PROGRAMMA : "jCHR$a>P* 

810 PRINT#2 : PRINT#2,MA$ : PRINT#2> M£$ : PRIHT#2, MA* 

820 X*=" H =MC$= H i" PGRJ=1T0 XhJ-X$(J> 

830 IFC2”6THENK=£ : GGT0S5S 

340 FQRK*1T0LEN<A$) = IFMIIif < R$, K, 1 >0" "THENNEXTK STOP 
850 B*=LEFT$<fì$,K-l> :C*=mi)*<A*,K+l>:IFX*=£-$GCTGS78 
860 PRINT#2 J MC#:V-0:X*=B#:PRlNT#2.X$>LEFT$<Sf.5-LEH^S>> JJ ! rl 
370 y-y+1=IFy<ZGOTO8S0 
830 Y=I :PRINT#2 : PR1NT#£, S*' 1 ! " ; 

890 FRINT#2,LEFT* CS#■6'LENCC*> >; Ci ; 

900 MC$="":NEXTJ PRINT#2 : CL0SE2 














cross rererenge: 


PROGRAMMA CROSS REFERENQE 

-1--—----- - - - 

VAR. ! LINEA DEL PROGRAMMA 
-*---—--— - - - 

i 


A 

j 

490 

500 

520 

530 

620 

630 





A# 

i 

390 

460 

480 

430 

520 

690 

720 

730 

740 

750 


i 

84© 

850 









AtC 

! 

250 

410 

560 

570 

580 

590 





B 

! 

400 

410 

440 

550 

560 

57@ 

580 

590 



£Ì 

i 

390 

466 

710 

7-30 

750 

350 

860 




Bi< 

! 

250 

270 

380 

710 







C 

j 

500 

600 

620 

640 

650 

660 

670 

680 

77Ù 

780 

Ci 

i 

710 

750 

850 

390 







C< 

i 

250 

320 

330 

340 

330 






CI 

i 

580 

530 

600 

650 

670 






C2 

f 

310 

330 

500 

540 

600 

610 

680 

830 



C9 

1 

530 

640 

650 

670 

700 

710 





J 

1 

320 

330 

410 

430 

440 

560 

570 

580 

820 

300 

K 

i 

410 

430 

448 

550 

570 

588 

590 

330 

840 

850 

L 

i 

480 

500 









Li 

i 

410 

420 

500 








Mi 

i 

540 

560 

570 

590 

600 

680 

690 




mi 

i 

230 

310 









MBi 

1 

240 

810 









MCi 

i 

820 

860 

980 








Pi 

! 

350 

360 

370 

330 

800 






Q* 

i 

276 

740 









Si 

f 

270 

500 

360 

380 

890 






X 

1 

410 

44£i 

320 








Xf 

i 

410 

420 

438 

440 

820 

850 

868 




Xi< 

i 

250 

430 

440 

820 







V 

s 

860 

870 

880 








z 

1 

770 

370 









Zi 

! 

280 

230 

310 

760 

770 
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VRR„ 
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ì LINEA DEL PROGRAMMA 

288 

■j* 

i 

i 

300 


310 

i 

290 


350 

! 

360 


400 

f 

700 

720 

439 

i 

430 


460 

I 

400 


526 

| 

700 

730 

548 

j 

540 


530 

; 

550 

570 

600 

| 

560 


610 

j 

538 


650 

I 

610 


698 

! 

670 


700 

I 

620 

630 640 

710 

i 

700 


720 

i 

740 

750 

760 

i 

460 


850 

i 

830 


870 

! 

850 


890 

! 

870 



668 


680 


-*H*^——— — * H*- -- *H* 













Che cosa e p un MODEM? 

Potrebbe sembrare una misteriosa 
scatoletta nera con due strane 
cavita’. 

In realta 1 > quest 1 aggeggio, e' 
appositamente designato per 

l 1 utilizzo di comunicazione fra due 
PET-CBM tramite la rete telefonica o 
interfonica, 

La parola SjCDfeM deriva da 

fttM ulator *DBH odulator 

ed e' proprio Con questo termine ohe 
e T conosciuto in tutto il mondo* 

Il modem della Commodore modello 
6010 e' una devine di comunicazione 
a 300 boud* Le varie carat¬ 
teristiche intrinseche dell'8010 
fanno si da essere conforme allo 
standard internazionale CCITT* 

Il sistema di utilizzo del MODEM 
8010 e f semplicissimo: 

Dopo aver composto il numero tele¬ 
fonico del corrispondente e aver 
scambiato alcuni messaggi verbali si 
appoggia la Cornetta telefonica sul 
MODEM e dopo averla ben inserita 
nelle due apposite cavita’ si può 1 
iniziare il colloquio fra i due PET, 


Il MODEM 8010 e 1 connesso diret¬ 
tamente a qualsiasi serie di PET-CBM 
tramite il cavo a standard IEEE-4S8 
e l’indirizzo di device corrisponde 
a 5* Con una semplice modifica si 
potrà 1 cambiare l'indirizzo 5 in un 
altro eventualmente desiderato* 

11 MODEM CBM 8010 e É composto essen¬ 
zialmente in due parti di cui la 
prima e 1 costituita dall’alimen¬ 
tatore (input 220 V AC, output 20V 
AC/400 (HA), 

La seconda parte e’ il MODEM vero e 
proprio, 

Sulla zona frontale del MODEM esìs¬ 
tono due deviatori e quattro Leed 
(spìe rosse luminose). 

Un deviatore definisce la funzione 
del MODEM al momento dell’uso 

GRIgirtate = il MODEM in questione 

trasmette l'onda 

portante 

ANswer = il MODEM in questione e f 
abilitato alla funzione 
dì risposta 

La posizione intermedia di questo 
deviatore pone il MODEM in stato di 
spento, 























Il secondo interruttore prevede,, 
anoh f esso, tre stati: 

1 * FD = Full Duplex 

Duplex completo 
(comunicazione bilaterale) 

2 - HD = Half Duplex 

messo duplex 

(comunicazione inilaterale) 

3 - T5T= TeST, posizione mediana 

per prove in locale * 

In qualsiasi posizione siano questi 
deviatori, con MODEM 8010 acceso 
naturalmente, la conferma del 
funzionamento e f convalidata 

dall'accensione di uno o piu 1 Leed 


posti fra gli interruttori* 

Un perfetto accoppiamento fra due 
MODEM SCIO e' confermato dal Leed 
XMT o dai Leed RCV* 

Il manuale, allegato alla confezione 
di questa apparacchiatura, e f costi¬ 
tuito da 13 semplici pagine 
espiicative. 

Pdr rendere facile il primo approc¬ 
cio con il MODEM BOTO vengono sug¬ 
geriti due semplici programmi atti a 
iniziare dei collegamenti 
bilaterali . 


Le caratteristiche tecniche del 
MODEM BOTO sono ; 


1 - Velocita 1 di trasferimento 

2 - Compatibilita* 

3 - Frequenze di trasmissione 

4 - Frequenze di ricesione 

5 - Stabilita" di frequenza 

6 - Sensibilità 1 di ricesione 

7 - Livello di trasmissione 

8 - modulazione 

9 - Tempo di ritardo di rivelazione 

10 - Interfaccia 

11 - Condizioni di lavoro 

12 - Alimentazione 


300 boud 

30 caratteri per secondo 
CCITT V.21 

OR Mark-Space 900-1180 Hz 
AH Mark-space 1650-1850 Hz 
OR Mark-Space 1650-1850 Hz 
AH Mark-space 980-1180 Hz 
controllata a cristallo dì 
quàr20 +/- 0*3% 

-50 dBra QN , -53 dBm OFF 

da -9 a -16 dBm 

FSK (Frequency Shift Keyed) 

1.2 sec, OH , 120 msec« OFF 
standard IEEE 488 
da 10 a 40 gradi ambiente 
da 10% a 90% umidita 1 relativa 
20V AC/0.4 A 


-— — 


Per Concludere questa breve 
presentazione del MODEM 8010 della 
Commodore e" bene anche parlare di 
un ulteriore prodotto per il MODEM 
stesso. 

Questo e 1 uno dei prodotti phe fanno 
parte di; 

-Approvato Harden Commodore- 
e si chiama : 

M C S 

Modem Comunication System 

L*MCS e 1 un firmware che rende il 
Collegamento fra due o piu f PET, 


allacciati con il CBM dOIO, molto 
piu 1 semplice e versatile* 

Il firmware MCS e f residente su 
EPROM che deve essere inserita 'sullo 
zoccolo di integrato libero sulla 
piastra dei componenti del FET. 

Per attivare l f MC5 e + sufficente 
impartire il comando: 

SYS (45056) 

ciò" abiliterà' ben dieci comandi 
speciali per il MODEM. 


















Comando 

effetto 


REGEIVE 

mette il,PET in ricezione. 


TXPAGE 

trasmette le prime 23 righe d 

elio schermo. 

TXPflG 

trasmette il programma BASIC 

residente in memoria 

TXLIM 

trasmette un testo compreso f 

ra due - 11 -, 

TXHEM 

trasmette una sona definita d 

i memoria. 

TXCOM 

trasmette dei comandi diretti 
li eseguirà"* 

BASIC al PET in ascolto che 

TRCGM 

come TXCOM e dopo la trasmissione si mette 
automaticamente in RECEIVE* 

TXVAR 

trasmette il contenuto di ur.a 

variabile, 

RCVAR 

riceve il contenuto di una variabile. 

HDC0PY 

stampa le prime 23 righe dell 

o schermo. 


L f MC5 prevede un controllo alquanto 
sofisticato della trasmissione dei 
dati, a tal punto da ripetere per 
ben dieci volte* automaticamente, un 
messaggio ae questo ^venisse rice¬ 
vuto non correttamente a causa, ad 
esempio* di interferenze telefo¬ 
niche * 

■Questo protocollo di collegamento 
firmwarizzato permette una grande 
flessibilita * dell'uso del PET in 
comunione con il MODEM CBM 8010, 


La EPROM contenente l'MCS con alcuni 
fogli descrittivi- e 1 reperibile 
presso i rivenditori Harden-Com- 
modore specificando la versione del 
proprio PET (serie 3000 o serie 
4000-8000), 


- -- + - N£ 




è per tutti voi! ! ! 



































unsTRiriG s$ 


□ELlfTllTED 

BV CC$ 



E‘ sempre nolo uso prendere esempio e a paragone le capacita 1 de 
confronto con i grossi sistemi, non solo per* dimostrare che il 
computer Commodore ha enormi capacita 1 * ma per mettere a disp 
dei miei lettori, e quindi di possessori di CBM, alcune ut 
particolari risoluzioni che possono dimostrarsi ut1lisa 
molteplici casi» 


I PET in 
nostro 
osialone 
ility e 
ime in 


Questa volta voglio parlarvi di una istruzione specifica di un 
linguaggio evoluto, il COBOL » Lustrazione e 1 1 * UNSTRING » 


A cosa serve questo comando in quel linguaggio di programmazione, e 
come utilizzarlo in BASIC sul PET? 


Nel COBOL . 

Nel COBOL ed in altri linguaggi evoluti le lunghezze dei records e dei 
campi relativi sono fissi. Occorre, infatti, predefinire campo per 
campo le varie dimensioni» 


Tutto ciò 1 , se può’ essere comodo da una parte, rende difficoltoso il 
trattamento di determinati tipi di informazioni. 

Facciamo un esempio classico» 

Un record anagrafico, per determinate ragioni, deve essere lungo 30 
caratteri; deve contenere un codice elettrocontabile, il codice 
fiscale, il nome, 1 f indirizzo, la località' ed il CAF» 

Analizziamo campo per campo le varie lunghezze. 


Il C.0PICE ELETTRQCQNTABILE potrebbe avere una lunghezza fìssa di tre 
caratteri » 

Il CODICE FISCALE (tralasciamo il numero di partita IVA) e* lungo 
esattamente 16 caratteri. 

Il J10ME . mediamente, può' essere lungo fino a 30 caratteri» 

L 1 INDIRIZZO . come il nome,potrà* avere 30 caratteri e cosi* pure per la 
LOCALITÀ 1 . 

Infine il CAP , si sa*, cinque caratteri. 

Ora sommando le varie lunghezze (3+-16+30+30+30+5) ci accorgiamo che 
avremmo bisogno di un record dì ben 11 1 * caratteri, senza contare poi 
che il NOME o 1 1 INDIRIZZO o la LOCALITÀ 1 ognuno può 1 superare I 30 
caratteri definiti. 
























In COBOL si scriverebbe; 


01 anagrafica. 

02 CODICE 

FIC 

999 - 

02 COD-FISCALÉ 

FIO 

X( 16) . 

02 NOME 

PIC 

X C 30 ) * 

02 INDIRIZZO 

PIC 

XC 30). 

02 CITTA 

PIC 

X( 30) . 

02 CAF 

PIC 

99999, 

nome variabile 

lunghezza 
(X=alfanumerlca) 


(9=numerica) 


L T uso del comando UNSTRING permette al programmatore di rendere 
elastico un determinato numero di bytes per informazioni. Vediamo come 
si dovrà 1 definire il record che da 114 caratteri e“ passato ad 80 
bytes, 


01 ANAGRAFICA. 



02 CODICE 

PIC 

999. 

02 C0D-FISCALE 

PIC 

X C 16). 

02 MISTO 

PIC 

X(56). 

02 CAP 

PIC 

99999, 


Ed in un’altra zona di memoria si definiscono delle aree di lavoro 
transitorie : 


01 TRANSITORIE. 



Ù2 NOME 

PIC 

X(5<0. 

02 INDIRIZZO 

PIC 

XC5 1 )). 

02 CITTA 

PIC 

XC54). 


Al momento delia elaborazione si leggera’ il record ad So caratteri e 
lo si porrà’ in quella ^maschera” chiamata ANAGRAFICA e quindi si 
impartirà’ il comando: 


UNSTRING 

MISTO 

DELIKITED 

0 Y i r K >r 

INT0 

NOME 

INDIRIZZO 

CITTA, 




























Se noi nel record appena letto avevamo esattamente questa serie di 
informazioni : 


GQTR3SGLR46M30F605JGLORIAHO ROSSI JUNIOR* CORSO PORTA NUOVA N.46*MILAN0 20121 


nelle variabili fino ad ora definite troveremo: 


CODICE 


001 

COD-FISCALE 

Z 

KSSGLR46M30F605J 

MISTO 


GLORIANO ROSSI JUNIQR*C0RSQ PORTA NUOVA N,4ó*MlLANQ 

NOME 


GLORIANO ROSSI JUNIOR 

INDIRIZZO 

- 

CORSO PORTA NUOVA N.46 

CITTA 


MILANO 


Avremo ottenuto una minore occupazione nella memorizzazione su disco ed 
una maggiore elasticità 1 delle informazioni* 

In BASIC * 

In BASIC . si sa' f una variabile e 1 lunga quanto e 1 lungo il suo 
argomento, ma per particolari tipi di gestione e' comodo manipolare lo 
inforinazioni dii lunghezza prefissata* 

Un classico esempio di questa necessita 1, e 1 proprio 1 ' obbliga toriata 1 
di lunghezza fissa dei records scritti in files ad organizzazione tipo 
RANDQM o REL A TIVE . 

Un altro esempio e" quello di voler scrivere un record costituito da 
una sola variabile a SO caratteri contenente poi tutte le informazioni 
desiderate, 

In BMI£- tratteremo questo record nella maniera seguente: 


niiQQ 

REM 

RR$ s RECORD 

DA 

80 CARATTERI 

un 10 

C0£ 

z LEFT$(RR $i 

3) 

: REM 

CODICE 

nn£Q 

CF£ 

= MID$(RR$,4 

* 16 ) 

; REM 

COD-FISCALE 

nn3Q 

S$ ^ 

■ MID$ ( RR$ i 21 

,56) 

: REM 

MISTO 

nn4Q 

CP4 

= RIGHT$(RR$ 

,5) 

: REM 

CAP 


Fermo restando il concetto che se si conoscono le caratteristiche 
fisiche dì una informazione o di una serie di inf orinazioni ( la gestione 
delle stesse risulta inevìtabilmente piu’ facile ed elastica* questa 
routine sara r utile per risolvere alcuni problemi di gestione del 
rscord * 

L f yNSTRlNj^f che propongo analizza una variabile alfanumerica e la scinde 
in tante altre quante volte e r riportato il carattere di controllo 
(generalmente 1'asterisco)* 



Hr 
















Ció h che vi propongo pero 1 e 1 un programma completo che e 1 diviso 
essenzialmente in due parti* 

La prima parte contiene una serie di istruzioni atte alla dimostrazione 
della validità 1 della routine stessa. 

La seconda parte, quella numerata da 60000 in poi, e' la routine 
UM5TRIM G_ vera e propria che dovrà 1 essere inserita in un qualsiasi 
vostro programma che necessiti di questa Funzione. 


160 NC=Ì0 : DIM tìRfCMC> 

116 INPUT "LA STRINGA ";S* 
120 GOSUE 60000 
130 POR 1=1 T0 NC 
146 PRINT PR$<I> 

150 NEXT I 
160 EMÙ 


REM NC = NUMERO MASSIMO CAMPI DIVISI DA CCS 
■REM INTRODUZIONE DELLA STRINGA CON ASTERISCHI 
REM RICHIAMO ROUTINE UNSTRING 

■ REM f 

: REM + STAMPA NC CAMPI 

■ REM I 

: REM FINE PROGRAMMA " 


60000 REM * * * *** *** ****** **** * ****** ****** ** **** ** ******************** ***** 
60656 REM ***** ***** 

60160 REM ***** UNSTRING SS DELIMITED BY CC* IHTO AR$<NC) ***** 

6012© REM ***** ***** 

60140 REM ***************************************************************** 
60150 AR=1 REM INDICE DI CAMPO 

60160 CC$="*” : REM CARATTERE DI CONTROLLO 

60170 K=0 1 REM INDICE FLOTTANTE 

601Stì POR J=K+Ì TÙ LENCS$> 

'60190 IF MID*CS$* J> 1 ) <> CCS THEN GOTO 60210 
60200 NEXT J 

60210 IF J>L£N(S*> THEN GOTO 60276 
66220 POR K-J TO LEN<3*> 

60230 IF MIB$1) = CCS THEN GOTO 66250 
60240 NEXT K 

60250 ms(.m> - MIDS<SÌ j Jj K-J) ■ AR=AR +1 
60260 IF K<LENCS$> THEN GOTO 60IBS 
66270 RETURN 

E f inutile che io riporti una routine inversa alla UMSTRIIJG . la STRIMG . 
in quanto sara' sufficente costruire una stringa ingerendo nel vostro 
programma un qualche cosa di simile a quasta serie di istruzioni ohe 1 
per prova potranno essere inserite nel trog, di dimostrazione. 


10 POR 1=1 TO 56 : B* = E* + " " NEXT I -REM CREA UNA STRINGA A SPAZIO 

lló CGÌ= JJ *“ : 

111 FOR 1=1 TO NC 

112 PRINT "CAMPO ls l; : INPUT X# 

113 Si = 3 t + XS + CC* 

1. 14 NEKT X 

115 SS = LEFT*CS*.LENC3f)-i>= REM TOGLIE L'ULTIMO ASTERISCO INDESIDERATO 

116 IF LEN<S*) < 56 THEN S*=SÌ + LEFT^BIl 56-LENt;S4 : >> 

117 IF LEN(S$> > 56 THEN PRINT "TROPPO LUNGA" : GOTO 11© 


CAMPO 1 GLORIANO 
CAMPO 2 ROSSI 

CAMPO 3 CORSO 

CAMPO 4 PORTA 

CAMPO 5 NUOVA 

CAMPO 6 N. 

CAMPO 7 46 

CAMPO S MILANO 

CAMPO 9 20Ì21 

1 tfLm i monomi #corso*porta*nuovr*n , #4s*m i l ano* 20121 *- 

■ «WMw- 1 1 

_••■■'.' ; _'■■■■■■' ■ .:.■■■_;_. „---„„- - ------„ -j-i-l-- 

CAMPO 1 - GLORIANO 

CAMPO 2 = ROSSI 

CAMPO 3 = CORSO 

CAMPO 4 = PORTA 

CAMPO 5 = NUOVA 

CAMPO 1 6 = N, 

_ ! 

CAMPO 7 =46 

CAMPO 8 = MILANO 

CAMPO 3 = 20121 

CAMPO 16 - - 


- *H*— - *H* -- *H*““ ---— — 




























Seti a frssfErmars, 

il issa, 

il isatrE 

PET h TD33 


iji-i*.' nel numero scorso di POCKET PET avevo annunciato la disponibi lita^ 
delle ROM del BASIC 4.0 da sostituire a quelle del BASIC 3.0. 

Tutti i PET él.'ù 01.. nuove ROMs-fino ai PETediti 3632".' possono essere 
aa-si ornati con là nuova versione del BASIC* di uran lunaa pìlT Potente e 
ve lece. 

Doro aver sortili stato* dal proprio rivenditore autorizzato Harden-Commodore 
di ti duci a* il kit di cinque ROMs* si deve sostituire le quattro precedenti 
con. le nuove* 

Molti di Voi non hanno aperto ancora i l proprio computer F'ET-CBM 3032. 

Bene e" ora di tarlo! 

Prifria di tare ewalsiasi cosa occorre ricordarsi di staccare la spina della 
corrente. 

r 

Disponete il PET-CBM su un tavolo con spazio abbastanza ampio di lavoro. 
Procuratevi un cacciavite a stella. 

Può-' andare bene anche quello della borsa desi li attrezzi della au+orrrobi le. 

Atterrate ora i l PET da Parte del lato anteriore <i ì bordo della tastiera) 
e ribaltate lo al l'indietro tino a che non apponi saldamente sul dorso. 

La parte sottostante al PET, duella nera* dovrebbe essere ora rivolta verso 
di voi. 

Questa parte metallica e' 1 solidale con la parte superiore ner mezzo di due 
v iti a ste l la ohe s oro i ns er i te at t r av er so due 1 i n su et te ne s 1 i an c i o \ i 
destro e sinistro della Parte interiore. A PET ribaltato* le vii,, 
risulteranno in alto a destra e a sinistra. 

L!uando avrete individuato le viti rimuovetele e mettatele da parte per- il 
momento. 

Le parti superiore ed interiore del PET non sono ora pìu^ , fissate tra di 
loro in corrispondenza della parte frontale. 




Tenete insieme oneste parti con le mani e riportate V intero computer nella 
sua posizione normale. 

Sollevate ora la parte superiore del PET che si -aprirà/ a ventaglio rer 
mezzo dì un cardine posto in -fondo, 

Dando una occhiata al l'interno, in gualche resto c 1 e 1 una barretta 
metallica lungo il -fianco od il bordo del vostro PET, 

Questa barra servirà-’ come sostenne della parte superiore proprio come il 
cetano di qualsiasi autovettura, 

Pi 11'interno del PEI troverete molte cose. 

Quella Che vi interessa. Pero’' 1 , e la piastra dei componenti* cioè-' «molla 
scheda Piatta a circuito stampato -fissata sul tondo nero su cui sono 
alleviati molti componenti elettronici* alcuni dei quali sono inseriti su 
socco lini genera. Irri ente b i an c h i, 

Alcuni di questi componenti si chiamano circuiti integrati e* ne 1 l 'aspetto.. 
sono uguali per torma*ed alcuni anche per dimensione, a quelli che avete 
appena comperato. 

Quali sono i quattro integrati da toglievo e quali sono le giuste posizioni 
di quelli nuovi? 

Non dittici le individuar li. 

Esitai sulla Piastra dei componenti* una ti la orizzontale di zoccolini, tre 
dei quali sono vuoti* 

Noterete che sul circuito stampato e' di segnato in corrispondenza di questi 
zoccoli vuoti i termini■ 




i-iTr3, UD4 e UD5 


-Quando avrete individuato la ti la interessata, togliere i curouitì 
integrati contrassegnati con 


UD6* Uri T UX«S e Lir*^ 


notar do che ogni integrato pos siede un a t ac che 11 i n a r i >, «o Ita verso di vo i , 
Avremo a questo punto sette zooco lini vuoti. 

Prendere ora* con massima cura, il kit dei cinque nuovi integrati e con 
m ass ima dè l i c at e zza ed atte n z i ore * sor r at tu tto per i rie ci i. n i de 1 le EONs ■ s i 
inseriscono questi componenti in queste esatte posizioni, tenendo presente 
che le tacche di ogni integrato deve essere sempre rivolta, verso di voi. 

Per tare aveste operazioni può j essere necessario allineare i Piedini con i 
relativi -fori degli zoccoli. Per tare ciò" utilizzate delle pinzette ed 
eseguite questa azione solo se necessario e con cura. 


a 

















circuito integrato posizione 


libero 

UB3 

libero 

UM 

9014E5-23 

UD5 

901465-20 

UD6 

901465-21 

UD7 

991447-29 

UD& 

901465-22 

UD9 


Per ogni circuito irto tirato assicurataci che la tacca sia nella giusta 
posizione a che tutti i piedini abbiano imboccato il r 1 snettiuo toro. E'' 
■Facile intatti mancarne uno e Piegare il relativo biadino alì'esterno o 
carso ì' i nte nno„ 

Iniziata a premere delicateroente tino a che ogni integrato non sia 
cómpletamente inserito. 

Quando avrete eseguito tutte ctueste operazioni eseguite ancora una volta 
una veritica di tutti i piedini e delle relative posizioni degli integrati 
f calinoli rotete procedere a chiudere il vostro "nuovo" PET t eseguendo in 
ordina inverso le operazioni che avete compiuto per aprirlo. 

Inserite di nuovo la spina nella mesa di corrente/ ed appena acceso 
apparirà': 



—mb-ìm ---—- 


*=* eorrif 


+ or "rn-ar -♦=* 


c i ■_ 


sempre- in 

r / 

i 1 nostro 

£040 <=> 304S in 40401 

i 1 DOS 1^0 in DOS 2- S 







ri OS 1-0 in DOS 




per poter trasformare la propria unita disco CBM 2040 o CBM 3049 in nuova 
devi co corrispondente a quella oggi in commenrcieu la CSM 4049j e" 
iuffice hit 0 reperire presso i 1 proprio rivenditore autorizzato Harden-Cem¬ 
me doro di fiducia,- il kit di ROfls del DOS 2.9. 

Quando avrete fatto ciò'> noterete ohe il kit c composto di tre circuiti 
integrati usuali a duelli del EASIC 4,9> e oii un integrato molto pìu' 
grande. 


Coite si procede al la t riformar iene? 

5e avete eia' trasformato il vostro REI le operazioni ohe seguono sono 
alavarit q seni p 1 i c i ■ 


Il coperchio dell'unita" 2949 o 3940 e' sollevate ite quando si saranno tolte 
le due viti di fissarsi io poste sulle due fiancate de l l/apparacchiatura. don 
s ar a -:iu i n d i n ac ess ar io alo un r i ba 11 suri e n t □ come e ' aoc ad ut o per il RE T « 


Dopo aver aioerto i t coperchio si Potranno rodare tutte le parti che 
compongono l"'uriita" dischi. La Piastra dei» componenti che gì interessa c 
fissata proprio sul coperchio stesso. 


Su svesta si potrà'' notare che un so lo zoccolo e" lìbero ed a fianco a 
'■questo ci sono due circuiti integrati simili a. quelli da sostituire. 

Cori sicurezza potrete togliere sia l'integrato che sta' sulla destra e 
■;tue l lo che si trova a sinistra delio zoccolo vuoto » cosi" da ottenere tre 
z occ o l i n i l i he r i. R i co rdars i la posizione de Ila tace a.' o he do vra " essere 
rispettata anche con i nuovi integrati. 

Ora Potremo ricercare t ,IJ integratone" da taglière. Questo si trova pìu" o 
meno al centro della Piastra dei componenti e dovrebbe avere una siglatura 
corrispondente a -£01466-02-, 

Per fugare oualsiasi dubbio questo integrato si trova in Posizione UK3 che 
e " tra l i nte sr a. to É522 < p osto i n r os i z 1 or e UM3 > ed il fe 5 £3 Cpo sto 
in posizione UH31 j auest-" ultimo leggermente pìu" Piccolo desìi altri due. 

Dopo aver tolto i tre circuiti integrati si Procede a riempire tutti i zoc¬ 
coli vuoti con i componenti chi e del kit che avete appena acctui stato. 


circuito ìnterrate 

posizione 

£01468-12 

OLI 

301468-il 

UJi 

96146S-13 

UHI 

£01466-94 


o 

UK3 

901466-34 



L"integrato "grosso" potrebbe avere una siglatura terminante in 04 o 34. la 
differenza e" da considerarsi insi ani fi caritè in quanto non esiste alcuna 
variazione se non solamente nella £igla. 

Inserire avesti nuovi componenti rispettando le medesime regole che abbiamo 
seguito per la trasformazione del BASIC 3,0 in BASIC 4,0. e tenendo anche 
presente che tutte te tacche degli integrati devono sempre essere rivolte 
verso i l basso. 
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j iunta notizia da 


L-i e 



r S N E V 

ISTITUTO PEft LO STUDIO DELLA HEVE 
E DELLE VALANGHE 

Via Ac lo righerà... S 

16138 TORINO 

Tel, @11 -442319/4471209 


Da i*o co meno dii due anni e - ' in funzione presso TISMEV un calcolai or è 
elettronico modello CBN nella configurazione tiro di unita-' centrale, 
video e tastiera ^3210, floppy disk e stagnante CBN, 

Tale e latoor at or e o l tre alle att i v i t a - J gest i o na lì ed arnnì i n i s 1 t ar+i v e 
de 11 Isti tuta, viene usato nel campo sci enti fico, rie l campo 
de 11'" analisi delle caratteristiche del manto nevoso e della previ Siene 
delle valanghe, 

I n rat' f i co 1 are co n ar no siti progr am mi si effettua 1 


1 - Archiviazione dei dati meteoni- 

vometrici, 

2 - Ordinamento dei dati rmeteoniso¬ 

metri ci. 

3 - Rappresentazione grafica mediante 

istegraitirnì dei daii arehiv i at t, 

4 - Previsioni della c adu +a d i va 1 an Liti e., 


1 - tir eh ivi az i one d e i d at i mete on i vonnetr i c i. 

Tale attività' prevede Farchiviazione dei dati contenuti in un 
modello standard previa verifica di congruenza sui singoli valori 
secondo una ccdif icazione. 

I dati corretti vengono immaginizzati sui dischetti e vanno a comporre 

1 e r oh i v ì o Las e » 

2 - Ordinamento dei dati meteonivometrici, 

P re ve de 1 a. r i o r d i n az i o rie d ett i i are bivi sia per'- ann i di rii e v ame nto c he 
per sìngola stazione. 

3 - ftappresentazione grafica mediante istogrammi dei dati archiviati. 

4 - Previsioni della caduta di valanghe. 

Utili zzando 1 ' ar- c fi i v i o hase e gli areh i vi seccndar- i si procede pò i a 
tracciare; utj lizzando la stessa stampante CBM, una rappresentazione 
grafica delie grandezze mediante istogrammi che permettono, unitamente 
a un"aLtra ser ì e di programmì pi u"' complessi, la sperimentazione di 
nuove metodo lesi i e d i rrev ì s i o ne de 1 la caduta d i va 1 arighe. 

Molto utili per queste ultime elaborazioni sono ì caratteri speciali 
ohe si hanno a disposizione usando la stampante originale CBN. 



Dr. imi. Pi ermi che le Ba.l^acetti * 

fyhanlk' 





PET POSTA 

Rubbrica aperta a tutti ì lettori. 


Poco tempo fa mi e 1 Biunta in redazione un letterina di Mauro Manzoni 
di Montefiascone in provincia di Viterbo, e ohe pubblico con molto 
piacere. 


Cariasi fio POKET PET* 

ti mando una piccolissima cosa fatta in 'casa 
Non ha pretese p ma vuol essere un motivo dii collegamento con te 
e con gli amici del PET, E 1 possibile pubblicare un programma 
per mettere in ordine alfabetico una lista di nomi? Non riesco e 
concretizzarlo in modo soddisfacente,. Ti ringrazio e ciao. 

Mauro - Montefiastone VT 


i 00 p r r nt ” zr : a * - ,i wmssÉÉdm" 

110 PRINTfi*"M"jSPRINT" ” ; 

*120 86^ " 

! 5Q 'iQUESTO PROGRAMMINO E f FATTO PER IL NOSTRO PET CON L'INTENTO DI" 

140 B$=&*+" FAR EVIDENZIARE UN QUALSIASI TESTO SCORREVOLE SU UNA FASCIA" 

13 © & ■$=& 6 + ” DE L M OH ITQR. ATT Uh NOO M OD IF 3 CHE SI PU O ' A ODE LLI RE fl PI ACE RE. . . CI AC 

i 

ISO FGRJ=iT0£41;FORI“tTOICO:NEXT 
i 70 RRINTAT" itiSltì' 1 LEFT6< &* , 40 > 

ISO B*»REOHT*<: 06 , 235}+ 11 " ìNEXT 
ISO END 

Una prima, semplice modifica si può attuare cambiando le linee 
110 e 170 in: 

HO PRINTA6" dS" ? :F0RI = 1 TÙ20& SPRINT" " ; :NENT 


170 RRINTA6" jjfeMBT L EFT6<B6,40 > 


-- 

Caro Mauro, 

ti ringrazio per la tua piccola collaborazione ohe spero non 
si fermi qui. 

In aggiunta alla tua lettera direi di modificare le linee 160 1 Se e 190 
del tuo programma in maniera tale da non essere legati dalla lunghezza 
di B$ ed in oltre per fare in modo che la tua dicitura continui in modo 
ciclico lo scorrimento. 


lbÀ FDR I “ 1 TO Iòéi : hOT REM TEMPO DI PAUSA 
170 FRI NT fifMÉW" LEFTtCB** 40 > 

180 E# - RIGHT$<B$,LENCE$>“1> + LEFT6CE#, 1 > : REM ROTAZIONE ìil STRINGA 
190 GOTO 160 




--——— — 

















The Second International 
Commodore PET Show 


Alinosi 3 V. -Sr t iirr- 

T lh(? Wóf Ih if F ir si Commodor & Pf ' StKtw 
was heifll al ihe Cafe kov.il 
The S#cc?r»d'rHefnatKinal Commotlore PE l Show 
wiiJ be evert Pn^ei- and tM’Erer 

Whau-vei vout prolession may bo¬ 
li ycuare Jhmking Ol C0mytiCeri5ir>g you r -bubirw?s\ 
toc CotnmòtlOFt PEI Show will prOvt fu iùu 
ìha! Euroyt s besl solini^ nucroGwnpulet 
Iho Cornnìottoi e Pi P Sci iei>. 
basa so'IuIichi (o wiriudlJy omci y application 
WbeEher Induci rial. ConiMigron!, Medicai. £ fiuta lional 
rar Miiiply a COrlipNft?' 

over lOtì opfnbilora (foni all over thewofkl vili he ab« fn 
demoni rate Eo you a» application lo &u»! yoor v*™*. rtìQuireii’f'r.! 

In (ad everyfb in^ a eonipiyl er is. tapablid ol don 1.1 ■ tl io Pi. T (lf»i . i 

So conie and *w fin yous eff 
aliti ali 

qver 100.000 EurOOCan Pf T yyds Cu ni Ile wnc» 

Commodori'- Husu'Oi^ Maghine . 
will demoni»! tale their i?niire jHntiiyn 1 «u.. 
and a «nesol leu ipoc-S»c »j' uff iriti-i-4 

ha^deeiblimed locomcui wub me oh-.* 

T he- Second in ter nai ipnai Coni inodoro Pi I Si»òw 
Wes" Ceni fe Hoiel London $Wfc 

ThiJfijdiiy Idlh Jijne E (Xlpm ~ t fK)pr*: 

Friday l9lft jLiFie lOOtiiiTì ì nnprt 

SjlurdayJUIh Jone lOOGaro 0 Otfljm 


A Londra, da giovedì 11 18 e sabato 20 giugno di quest*anno, si e* 
svolto : 

Il secondo PET Show internazionale della Commodore, 

E 1 , senza ombra dì smentita, l'unico mini/personal computer a cui e' 
stata dedicata esclusivamente una manifestazione europea di tale 
portata, 

Sicuramente erano presenti alla manifestazione piu T di un centinaio di 
espositori che mostravano piu 1 di un migliaio di prodotti software e 
hardware per il PET * 

La^ casa madre t la Commodore Businnes Machines, ha colto l'oocasione di 
presentare ufficialmente il CBM 8096, un nuovo computer della serie 
8000 T con 96K di memoria * 

Il nuovo computer Commodore ha un video ad 80 colonne come l'$ 032 , e 
prevede una grande capacita dì caricamento di programmi* 

Sara' possibile adattare una ampia vastita 1 di programmi speciali 
utilizzati nella gran parte di sistemi computer (programmi scrìtti nei 
linguaggi tipo FORTRAN o COBOL, oppure sofisticati DATA-BASE). 

Verranno eseguite delle versioni aggiornate del VisìCalc, dell’OZZ e 
del Wordcraft* 






Una altra novità dì casa PET sara 1 una nuova 

unita 1 disco 

da 

3-2 

Megabytes (CBM &0Ó2); questa device porterà* 
livelli di sofisticazione. 

il 

nuovo sistema 

ad 

alti 

La Harden spa ha già 1 opportunamente preso i 
poter commercializzare il sistema 8096 anche 

dovuti accordi al 
in Italia. 

f ine 

di 
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Sabato 20 a chiusura della manifestazione si e' tenuta una conferenza 
stampa atta a rendere edotti gli interessati sui nuovi studi sui 
prodotti del prossimo futuro. Il piu' importante progetto descritto e’ 
risultato, senza dubbio, il MMF 9000 {MicroMainFrame); un "qualche 
cosa"' che ha lasciato letteralmente a bocca aperta tutti gli astanti; 
un super mini computer. Si può* dire che la Commodore con il KMF 900G 
vuole soddisfare una larga fascia di esigenze di computerizzazione. 


Sui prossimi numeri di POCKET PET descriverò* alcuni dei prodotti di 
particolare interesse presenti alla manifestazione, fra i quali posso 
annunciare il MUFET ed II COBOL per il PET, Il primo permette il 
collegamento di piu* PET ad una medesima unita' disco. Il secondo e' un 
sistema che trasforma il PET in un computer programmabile in linguaggio 
COBOL. 


Proprio per questi prodotti in particolare e per molti altri, ohe 
descriverò' con maggior dettaglio rispetto questa breve nota di 
viaggio, la Karden spa ha intrappeso gli'opportuni accordi commerciali. 




































































































tri Libreria 


fx Commodore 

S.p.A, 

Sul numero zero dii POCKET PET avevo presentato alcuni volumi 
dii interesse generale* 

Ora su questo numero sono lieto di presentare alcuni volumi 
dedicati esclusivamente ai prodotti della Commodore. 



o r- ^xir m i o iz» i- - i il 


Franco Muzzìo 4 C* editore 
ci presenta un libro di ben 2ii0 pagine 
intitolato : . 

32 programmi con il 

PET 

il cui contenuto sono appunto 
trentadue programmi documentati 

rispettivamente con molte specifiche* 
Ognuno dei 32 capitoli non si propone 
esclusivamente di fornire una semplice 
spiegazione dei programma,. al 
contrario questo e 1 corredato di: 

1 - Scopo : ampia descrizione e 

significato del programma. 

2 - Come usarlo : vengono spiegati 

dettagliatamente i modi » di 
esecuzione. 

3 - Listato : Listato completo del 

programma pronto per essere 
eseguito su qualsiasi tipo di PET 
(dalla serie 2000 vecchie POH 
alla serie 8000 )* 

4 - Esecuzione di prova r in ogni 

capitolo e’ compresa una serie di 
fotografie riproducesti lo 
schermo del PET durante 

l'esecuzione del programma. 

A questo punto, il capitolo, potrebbe 
terminare co^i 1 , ma e r proprio ciò' 
che segue che fa di questo libro un 


valido aiuto per il principiante ed 
una ottima "palestra" per chi non e 1 
piu' un iniziato. 

5 - Semplici-, variazioni : vengono 

suggerite alcune modifiche al 
fine di poter ^ cambiare o 
migliorare il programma. 

6 - Routines principali : ogni 

programma e' diviso in una serie 
di istruzioni* Ogni serie e T 
chiamata routine e proprio In 
questo sottùcapitoio ne viene 
fornita la spiegazione. 

7 - Variabili principali: come per le 

routine? anche le varie variabili 
principali vengono elencate e 
descritte. 

5 - Progetti suggeriti : quale 

conclusione di ogno capitolo 
vengono suggerite alcune idee per 
spingere il lettore a mollificare 
o migliorare con le proprie forze 
il programma in oggetto. 

E 1 inutile dire che tutti i programmi 
riportati girano regolarmente. 

Il libro viene venduto presso tutte le 
librerie o direttamente presso 
1 1 editore .. 

Per favorire tutti i possessori di 
PET-CE'M t la Harden spa ha acquistato 










un gran numero di copie del volume; e' 
quindi possibile reperire questa 
edizione anche presso tutti i riven¬ 
ditori autorizzati Harden-Commodore. 

Il costo del volume e' di L.9.500 

La Franco Muzzio editrice- ci comunica 
che sono disponibili i 32 programmi su 
supporto magnetico direttamente pres* 


so la casa editrice. Su supporto a 
cassetta il costo corrisponde al 
L.20.000+ mentre su dischette- l'onere 
e ’ di L. 25.000 / 

L’indirizzo dell'éditore e 1 : 


Franco Muzzio editrice 
via Bonporti 36 
35100 Fadova. 


- 


i ri i i -suri o Bi. ìo r »"ì ^ r- am rn & 

x r _ j EHSI C 

cori i 1 PET X CEM 


della professoressa Rita Bandii» edi¬ 
to dal gruppo editoriale Jackson. 

Questo libro» in elegante formato tas¬ 
cabile, ha le medesime dimensioni del 
POCKET PET che .state leggendo, con- 
tiene ben 180 pagine. 

Il contenuto del volume e f una quanto¬ 
meno completa trattazione di ciò 1 che 
e 1 e ciò che si può 11 fare con il 
PET-CBM serie 2000» vecchie ROM, e se¬ 
rie 2000, nuove ROM-BASIC 3-0* 

La professoressa Rita Sorteli! non si 
limita a descrivere l'unita 1 centrale 
Commodore, ma tratta anche tutti gii 
argomenti inerenti alla stampante CRM 
3Ò22j nonché 1 alla unita 1 disco CBM 
30^0 con versione DOS 1.0. 


Un vero primo "Corano 11 del PET, dun¬ 
que» consigliabile anche ai posses¬ 
sori di PET-CBM serie ^000 e 8000» 
perche 11 "la Bonelli" non ai limita a 
descrizioni e all'uso del PET» ma si 
prolunga i concetti di programmazione 
fondamentale BASIC specifici del PET e 
suggerisce routines e trucchettì uti¬ 
li anche ai programmatori smaliziati. 
Il volume e' disponibile presso tutti 
i rivenditori autorizzati Harden-Com- 
modore, nonché 1, presso la maggior par¬ 
te delle librerie. Se nonostante ciò'» 
vi fossero delle difficolta 1 di 
approvvigionamento e 1 possibile 

richiederlo direttamente alia Harden 
spa oppure alla casa editrice. 

Il costo? Semplicemente L.10.000. 


-- 


Proprio in corrispondenza dell'uscita 

dei VIC SO appare anche un volu¬ 
me dedicato interamente a questo nuo-' 
vo personal della Commodore. 

Una stretta collaborazione fra il per¬ 
sonale della Harden spa, che ha for¬ 
nito un prototipo ante-serie con 
documentazione varia» e la profes¬ 
soressa Rita Sorelli, ha fatto si r che 
fosse possibile realizzare questa edi¬ 
zione in concomitanza. con l'entrata 
sul mercato del 'V I C 20. 

Il volume e 1 stato dedicato ai geom. 
Luigi Bonezzi, presidente della Harden 
spa. che purtoppo e' venuto a mancare 
nel mese di agosto di quest'anno. 

Il volume, delia medesima collana del 


precedente della Bonelli, si ioti 
tola : 

V o*< 1 i ejùo 
I ricordi no lare 
Così'' 

I fi !*:■ ar i airio a i--ro gr-ammare 
i fi BASIC 

con i l VIC / CEM 

L’edizione -contiene ben 176 pagine 
ricche di nozioni e di indispensabili 
consigli per il perfetto uso del 

VIC: 

Una curiosità 1 su questo libro: tutto 
il testo e 1 stato impostato e ripro¬ 
dotto tramite una stampante della Com¬ 
modore pilotata dal programma WF 3.1 s 



proprio come il POCKET PET che state 
leggendo. 

Per acquistare questa edizione val¬ 
gono naturalmente le 11 regole" del 
precedente volume* 


Il prezzo? al momento di andare in 
stampa con POCKET PET non mi era per¬ 
venuto ancora l’esatto ammontare,, ira 
prevedo ohe manterrà 1 il medesimo 
prezzo del primo della tìonelli- 
(L.10*000) 


---— 


Lo i 

di Riccardo Saetti 


Non e' datosi le spiegare al lettore la 
ragione di esistere di un simi le 
programma* 

Innanzitutto non ha alcuna pretesa 
di essere utile* 

Non costituisce una novità' di 
software-* 

£"■ semplicemente un ri eco lo innocuo 
divertimento^ un gadget all'ennesima 
potenza. 

A cosa serve vedere e sentire, una 
stringa di caratteri mentre viene 
letteralmente sparata sullo schermo 
del PET? 

Il j&unto toc a le del programma e 1 
costituito dalla routine che crea 
Leffetto sonoro, molto simile a 
■:vue Ilo realizzato dai musicisti 
"pop". 

Bopg che i 1 lettore avr-a 1 " dettato la 
stringa di caratteri desiderata, i 1 
programma provvede a stampar la. un 
carattere s-er vo Ita «ero’" ^ eseguendo 
^eccetto lo sdazio;. <tuale 

aocomrasriSMento. il ti ri co suono 
dello sraro. 

Non vi resta che trovare Leffetto 
che -fa a vedere "sparate" sul video 
le lettere che commonsono i \ vostro 


nome o ctualunonue altra fase 

vogliate. 

REMarks, 

I09 Azzera le locazioni del 

veneratore dei suoni. 

1 i y-136 Input della strin^a da 

''sparare"* Se detta stringa 

risultasse riu r " lunsia di 36 
caratteri avviene un rifiuto. 

140 Prepara le locazioni del 

veneratore di suoni. 

15S Prepara la stringa cornice 

169 Stampa la lettera "H" di 
Rarden. sti lizzata, e disegna 
la cornicei 

170 Stampa un carattere. Se i 1 
carattere corrisponde ad uno 
spazio salta la ruotine di 
suono. 

180 Routine del suono* L'effetto 
venerato corrisponde ad un 

gualche cosa che velocemente 
scivola nel L'aria. 

190-510 Attende che sia battuto uno 
spazio per continuare* 

259 Stampa la 11 H'" di Nardo n in 
manie r a stilizzata * 

Modifiche. 

F'er poter utilizzare il programma 

anche su PET 40ÙB o S©0 miOdif io are ■ 

209 iF PEEK <1^1) - 35 TMEN 10G 


i a rem************************* 

29 REM*** -POCKET GROUP *#* RICCARDO SAETTI *** 

30 REM******** **************** *** ** ******** *** ** ******* * 

40 REM" 

100 FGR1-59464T05S467 PDKEI.9 NEXT 

119 008U H22 0 : PRIMI 1 'NSERISU.I UNA ■ STRIN9A LUNGA AL MASS:IMO" 

120 PRIMI"36 CARATTERI." 

130 IMPUTA*: IELENCA*>>36THEN119 

140 F0KE5946S,12 P9KE39464>0 = P0KE59467,16:F0KE5946S.15 
150 m - 11 *" : F0RX=iTG40 ■ N$=w*+ Ii *" : next 

160 GOSUB220 : PRINT l, aW*IKMWIIW"W*;SPC;<38> u ** 11 SPC<38>"**"SPC<38> ;MI"TOH 11 . 
170’ FQRK= 1T0LEN< A*> 0f=MID*<A*. X. 1 > : RR1 NTfl* ; : 1 FÙS='' n THENì90 
130 F0RY^50TG200STEP3 ■ PQKE53464. Y ■ NEXT : P0KE594S4. G = F0RY-1TQI90 ■ NEXT 
139 NEXT : RRINT ■ PRINTSFC<254) "MSHPREMI SBPACEBl' ; 

200 IFPEEK<131?=6THEM100 
210 GOTO200 

220 PRINT ,p :ii»w : FRIHT N d ■ " :pRIKT JP »tf ■- mU «. RETURN 







■ 



Quando noi tr atti a/no dei f 1 ies.> di 
otualsiasi natura essi siano,, possiamo 
incorrere ir errori o in condizioni 
particolari che in cani " caso occorre 
conoscere rer una niusta gestione dei 
dati. 

Utilizzando una od entrambe le tare 
cassette (modello C2hO si possono 
cerificare etto stati differenti. Questi 
stati vengono comunemente chiamati 
rapporti di Fi le Status* 

i 

Una vari aio i le. che non deve mai essere 
usata per altri scori.- contiene sempre 
un valore che ci può' dire in che 
condizione di stato ci troviamo* 


Questa, vai"-iahi te e- sempre numerica e si 
chiama ST, 

Ùsni volta noi trattiamo un file e' 1 
consio1 1 abi le eseguire un test di suues+a 
variabile e se i 1 suo contenuto soddisfa 
determinate condizioni si procede in 
re laz ione del significato relativo. 

Cosi'' ad esempio ogni volta che 
eseguiamo una OPEN di file su cassetta 
e - ' bene seguire con il test- 

IF ST O 0 THEN 

Nella stessa mariiera ai procede anche 
per la lettura c scrittura di ogni 



s£=s=z=s ss j|E==s^5s;!s ss ss sto = 


verifica a load 
da reg 

unita- 1 o 
unita-' 2 

z; ti! SuirS“ Sii 




! o veri fica 
/ su fitevioas IEEE 406--• 
J (dischi eoe*) P 
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f fuori tempo in 
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£ lacco corto 


Flocco lurido 


-* 

f 

i 

f 

-*- 

i 


\ 

! fuori temro in 
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E lecco lungo 
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-*- 

t 

I 

! 

■*■ 

i 

j 

j 

#- 
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3 2 


Errore 
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par'- i ta ,J 
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accoppi amento 
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6 4 


Fine de l ti le 


F i ne i de nt i f i e ator 
(fine fi te.) 
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record * «vesto non so lo per sapere* se 
tutto e' andato OK, ma anche, in fase di 
lettura in particolare, se ci troviamo 
alla -fine del file <3T=É4), 

Le condizioni di errore vera e proprie 
per la gestione delle cassette sono in 
realta' solamente -quattro <3T- 4 , 3 > 

iS , 32), mentre le condizioni 0 > 64 .< 
123 sono considerate messaseli di normale 
gestione. 

La variabile del File Status può'' essere 
adoperata anche nella gestione dei 
dischi. Infatti avremo un messaselo 
comune alla gestione cassette.’ ST-C4 - 
fine del file, mentre lo status U 2 ci 
potrà' dir e che i t cavo PET/ IEEE e " 
tr qpp o 1 un 3 o » Lo S T=1 2 . y corr i s por de ra" 
ad uno stato di Mancanza di de vi ce.; 
provate , per d1mcstrare ciò eseguire ad 
esempio- 

OPEN i, i 4 ■ PS: I NT ST 

ri seguito di questa piccola disertazione 
riportiamo la teseli ina dei valori della 
variàbile ST e dei, relativi significati 
che essa assume in conseguenza de ila 
device che nel momento del test e" 
i interessata. 


li i sk »_c== 

Con ERSIC 3.0 e 4,x 

OPEN 15,3,15 
INPUT#15 ,A,E*,C,D 
PRJNT R, B*, C, [i 
CLOSE 15 

Con il solo ERSIC 4.x 


Per la gestione dei dischi, pero', 
esiste' una'altra serie di messaggi 
altrettanto uti li. 

Per le versioni ERSIC inferiori alla 
4,6, questa sèrie di messaggi e' 
con su Itabi te solamente in -questa 
maniera 1 

OPEN 15,8,15 
INPUT#15 ,R,B*,C,D 
PRINT FbB*,C, D 
CLQSE 15 
e ctuindi : 

IP R O e THEN 

Con le versioni FRSIC 4*0 e seguenti 
tutto ciò"' e' estremamente semplificato, 
infatti e"' suffiGente impostare; 

PRINT Do o IF DS 
oppure 
PRINT DS* 

I l secondo caso per ottenere i1 

mes sa.gg i o comp 1 eto, 

Con le versioni BftSIC 4.x, allora, 
abbiamo altre due vari ahi li vietate 
all'uso comune, ma in ceni caso esiste 
un grande rispàrmio di tempo e di 
scrittura* 

E' bene, per c^ue-sta ragione, che tutti i 
programmi che vengono trasportati dalle' 
vecchie versioni FRSIC al 4.x vengano 
analizzati al fi rie che non cont en g ano 
tali variabili per altri scopi* 

Per faci li tare <tuesto esame e' 
consig liabi le l'uso del programma CROSS 
PEFEPENCÉ descritto e proposto in annesto 
numero di POCKET PET. 

Ecco *iui a seguito la tabe liina dei 
valori e significati delle uariabili B3 
e DS*. 

Come noterete :tuestà tabella e'’ completa 
anohe dei messagg i relativi agli errori 
inerenti alle versioni ERSIC 4,x e DOS 

2, K. 


PRINT DS 

o l—---- 

PRINT DS* 

ed otteniamo in entrambi i casi : 
n n messaggio errore t t ss 

! ! ? E 

t i ! *-* riferimento settore 

i i $ -——- riferimento traccia 

( ——■—— —---- tipo errore 

$------~———-- codice errorq 






















*1***1* *.* l, i a 2ZH_2Z^ *777 ixr 55 ~ T ~ T "‘ "?E" 5 

'SS&9S10 
errore 

SSSSS^fJ 



======== (ÌE-Sii£= == =■ 

trace i 


S- E T-TT1 'l/i 'ni 'lYp ■ ■"■ !*7 __ ____ 


messaci 

! 

00 

? OK 

J 

00 

f 

00 

i 

di stato 

i 

—#— 

01 

Fi le/ 

s ser ateiato < canoe l Iato) 

tfFILE 

J 

>X> 

00 

J 

■ 


•T 1 

1 

20 

! REFlD 

ERROR ( intest .sz ione di blocco F 

T 

( 

5 

—M 

1 

REFlD 

i 


i 

mane ante) t 


i 


J 

ERRORs 

! 

21 

f READ 

ERROR (non esiste carattere di f 

T 

i 

3 

j 

— 

i 


t 

sincronismo) f 


[ 


i 

errori 

! 

22 

! READ 

ERROR (non esiste blocco dati) ! 

T 

ì 

s 

\ 

di 

! 

23 

i READ 

ERROR (errore di rarità') 

T 

f 

3 

1 

lettura 

i 

24 

\ RE Hi! 

ERROR (errore di decodifica) ! 

T 

{ 

S 

t 


1 

27 

! READ 

ERROR (errore di rarità'' nella ! 

T 

1 

$ 

t 


* 


i 

intestiOne di b\ ceco> ! 


J 

A: 


i 

j£ 

URITE 

T 

1 

25 

„ 

T 

? URITE 

ERROR (scrittura c- verifica) 

T 

T 

! 

$ 

T 

| 

ERRORs 

! 

26 

! URITE 

PROTEOT ÓN (il disco e' rrc- 

T 

i 

8 

i 

— 

! 


i 

tette contro la scrittura) ! 


8 


! 

errori 


28 

! URITE 

ERROR (blocco trerro lungo) F 

T 

i 

3 

ì 

dì 

i 

23 

■ DISK 

ID MISUBTCH (l identificatore F 

T 

a 

S 

ì 

scrittur 

a! 


È 

del disco non corrisponde o 


1 


| 


a 


a 

inesistente) ( 


! 




-ài- 


- 

----—-■—*- 


-J*- 




•3* ì settore 



--==* 




36 i 

3YNTPX 

error 

(errore generalizzato) 

t 

00 

F 

00 

SVMTAX 

f 

31 i 

3VHTRX 

ERROR 

( comando invalido) 

t 

00 

( 

00 

ERROR£ 


32 ! 

SVNTAX 

ERROR 

<linea tronco lunga) 

t 

00 

r 

00 

- 


33 F 

SVNTAX 

ERROR 

( nome file ir* va 1 i do ) 

ì 

00 

i 

00 

errori 

i 

34 ! 

3YNTAX 

ERROR 

( iffiPOStazione elei nome 

r 

00 

r 

00 

di 

i 

! 



del file non corretta) 

i 


f 


s ì ritass i 

i 

33 + 1 

SVNTAX 

ERROR 

< contando DOS i nvali do > 

* 

00 

F 

60 


I 

56 # F 

SVMTfiX 

ERROR 

(non esiste Record) 

! 

00 

j 

00 


» 

51 * F 

SVNTAX 

ERROR 

(Record trorro grosso) 

\ 

T 

\ 

r 

b 


l 

52 * F 

SYNTflX 

ERROR 

(File tre P&ó srande> 

j 

t- 

I 

! 

s 


FILE 

ERRORs 

errori 
sui 
Fi l*s 


60 ! URITE FILE OPEN (si tenta uns 

i scrittura su un -t 1 i ìe- già 1 ' 

1 aderto> 

61 J FILE HOT OPEN (si tenta di serivere 

i su un ti la- non scorto) 

62 1 FILE MOT FOUND (non esiste ti le) 

63 1 FILE EXISTS usi tenta di creare un 

! file ?ia," esistente) 

64 I FILE TVRE MISMATCH Ce" stato omesso 

! i l tino di "ti le> 

65 1 HO BLOCK (il blocco richiesto non 

i e disponibi le) 

66 f \ ILLEGhL TRACK AND SÉCTOR (si tenta. 

di accedere ad una. trace ie e 
settore inesistente) 

67 * \ ILLEGRL. SYSTEM TFACK AND SECTOft 

usi tenta dì utilizzare una 
traccia e settore riservati 
al sistema) 


00 

00 

06 

00 

00 

T 

T 


00 


00 

00 

06 

00 


*- 


i 

i 

7u 

NO CHfiNHEL (non esiste il canale) 

00 

1 

00 

j 

SYSTEM F 

71 

DIR ERROR (errore sulla directory) 

00 

r 

00 

i 

ERRORs ì 

7^ 

DISK Fi JL L ■ (dis co r- 1 ì e no ) 

00 

E 

00 

l 

— ! 

73 * 

DOS MISMATCH <incombatibilita' DOS) 

60 

F 

00 

1 

r 

errori 
di ! 

74 * 

DRIVE HOT READY (si tenta di 

accedere ed una unita" 

80 

i 

! 

00 

f 

*- 

sistema 


3050 non presente) 


] 

*- 





■ali errori segnati con sono presenti con le versioni DOS t.x 





















L'avvocato, il medico, l'industriale» l'artigiano e il negoziante. 

Tutu ogg 1 ci troviamo spesso di fronte ad una serie di esigenze fiscali, legali, 
contabili e amministrative, senza contare quelle organizzative e pratiche, che a 
portano via sempre più tempo in fastidiosi lavori di routine. 

Fortunatamente oggi c'è Harden. 

Harden non si limita a consigliare e a vendere il computer più adatto e più 
conveniente in rapporto a ciascuna esigenza, sia come dimensione che come marca 
(è esclusivista per l'Italia della Commodore, della Compucorp e OEM Data General) 

; ™ provvede anche all'addestramento di chi dovrà usare fa macchina, alla 

■ manutenzione e all'assistenza tecnica, nonché a qualsiasi esigenza di software, sia 

con migliaia di programmi già sperimentati e collaudati sia preparando programmi 
specifici su misura. 


Venite di persona, scriveteci; ci sono più di 
400 punti di vendita e assistenza Harden, m Italia. 
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